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Label Parameters. The instruction J ‘a! will cause the corresponding 
designational expression to be evaluated, and the code procedure to be 
left to return to the resuiting label. 


Array Parameters, The instruction ta! will load N1 with the 
appropriate array word. An array word contains addressing information 
for an array. 


(a) Arrays are stored by columns. 


(b) Each array has associated with it an additional word which 
contains information about where the array is stored and where the 
information is stored which enables the array to be indexed, This 
additional word is the word which is loaded into the formal locations- 


(c) This word is in three parts corresponding to the counter, 
increment and modifier divisions of a Q-store. 


The counter position contains the address (relative to YO) of- 
A(11512.. o o o ln )where li are the values of the lower bounds in the 
array declaration. 


The increment position contains the address (relative to YO) of the 
Start of the index information. 


The modifier position contains the address (relative to YO) of 
A(0,0.....0). That ig, 


. n 
Q= Š; lye A, where C is the address given in the counter position 
as defined ahove, and A, is defined below. 


(a) The are defined as follows, where uj are the values of the 
upper bounds in the array declaration. 


4, = 1 


A, = (u, -1, + DI 


fe o eè 


A 


z= em 4 e =< FD fa J e 
Bias (u, 1, + ) A. total number of elements 


(2, 4 “lt VA, 
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The index information ("Dope Vector") is first the total number of 
elements for the array, and secondly, the list of the n-1 increments 
required for a step of 1 in any given suffix position. The step for 
suffix position 1 is always 1 (stored by columns). 


The Dope Vector then is as follows:- 
Wo = A (nn) 


Dy, mic, 


DV =A 


n-1 n 
the A, are located as the least significant 16 bits of the DV. i 
element. 
The other 32 bits of the DV; words are used for information to the: 
translator - this information is not always there and cannot be used by 
the writer of a code body - it does, however, mean that the A; mst be 
'‘masked' out of the DVi 4 word. 


(e) It will be seen, therefore, that C - $ d, sf is the address 

iz1 $ 
relative to which a suffix can be evaluated in a general manner. That 
is, A(i, ij .....i,) is given by M + på tore ti eA where M 


is the value of the mođifier position, as defined above. 


For example: gives rise to the following 
information 


(£) DV, (the number of elements) may not necessarily be positive, but 
its absolute value is the number of elements in the array. 


String Parameters. The instruction 'a' will load N1 with the address, 
relative to EZ, of the opening string quote. The basic symbols of the 
string (including its bounding string quotes) are stored as 8-bit 
characters according to the table in Appendix C, 6 per word, beginning 
with D@-7 of the word whose address is given. 
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sclose (40) ; will preserve storage and state of 
devices as necessary; 


Failures will arise if the type of variable does not correspond to 
its format specification, see the list of failures at the end of 
this section. 


The full series of statements to read this data is therefore: 


sfread (40, [317, 3F7.3/4X] ) ; 


K1: = sread e 


K2: = sread at sread ty 
B4: = sread (1 


E 
3 B5: = sread (-1 sread (-1 
sclose (40) ; 


No other devices should be used, or a different form of input/output: 
performed, between these statements. 


A similar procedure, though not a function designator, is:- 


procedure swrite (type, variable); 
value type, variable 3 


integer type; real variable ; 
KDP9 15/11/1170; 


body in KDF9 user code 


ALGOL; 


Here the variable for output is called and then output, with the type 
to specify conversion where necessary. To output to the printer what 
was read in above, the following will suffice:- 
sfwrite (30, [517, 5FT.5/AX] ) ; 

swrite (+1,K1) ; swrite (41,K2) ; swrite (+1,K3) ; 
swrite (-1,B4) ; swrite (-1,B5) ; swrite (-1,B6) ; 
sclose (30) ; 


e 


and will actually output to the printer:- 
(newline - written on first use of device) 


K1 K2 K3 BA B5 B6 (newline - as per format expression) 
— t it Li (new line) 4 spaces for 4X, then CRLF on reaching ] 
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5.1.5 Summary 


The following notes show the facilities which are available in 
formatted input/output. 


1. A set of five procedures which handle fixed format data in units of 
one single number at a time. They are: 


Group (1): sfread , sfwrite 
Group (2): sread  , swrite 
Group (5): sclose 


Calls of the routines must use one procedure call from group (1) 
coupled with the relevant one from group (5), separated by any number of 


calls from group (2). They must not be mingled with other forms of 
input/output. 


Data may be on cards or paper tape, and results may be on the paper 
tape punch or on line printere 


2. The inclusion of the data-handling procedures is achieved by 
specifying library A27. 


5.8 LIBRARY REQUESTS 


The following is & list of the library requests which may be 
incorporated in the ALGOL text when it is presented to the ‘Assemble! 
phase of POST, These library requests should be made in the outermost 
block of an ALGOL program immediately after the first begin or within 
the outermost procedure declaration of a segment (that is the segment 
procedure) and before the first statement in the segment. For 
combination of Libraries see 3.8.2. 


Library C1 (section 21.50 of KDF9 S,R,L,M) is now declared within 
library A50, the improved standard functions. Therefore, library 
C1 and A50 should not be declared in the same program, If library 
Af is used then library C1" must be declared within users program, 


A1 'open' and 'close' 


This specifies the full input/output conversion package and the full 
peripheral device handling process. 


A2.  'open' (input) and 'close' 


This specifies the input conversion package and the input peripheral 
device handling process only. (Must NOT be used for output or a 
failure will ensue at run time). 


À5. open! (output) and 'olose! 


This specifies the output conversion package and the output peripheral 
device handling process only (Must NOT be used for input or & failure 
will ensue at run time). 
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labels comment ...55..3 
This is contrary to the Revised ALGOL 60 Report, and the WALGOL compiler 
will reject it. 


The WALGOL compiler regards a for statement as a block even if there. are 
no declarations within that block. This leads to invalid ALGOL of the 
form:- 


E 
o 
H. 
B 
ti 
> 
m 
P 
[NT] 
" 
= 


o 
->o eich 999909 
E 

we 


ends 


The KALGOL compiler will not allow this. It will reject it since there 
are two identical labels in the same block, However, if the structure 
is of the form:- 


L: for i := 1 step 1 until n do 
begin real d; 


L : d := Qs 
Ali] := à; 
goto L; 


end; 
then this is valid ALGOL and will be accepted by either compiler. 


If an attempt is made to open any device more than once, when using the 
KALGOL compiler, failure will occur. The WALGOL compiler, however, 
allows for the failure device to be opened repeatedly. 


In KALGOL, library Af and library A3¢ include all the standard functions, 
but if library Af or library A5f is declared in WALGOL, only the 
relevant parts of these libraries will be included. Thus, for example, 
if a program uses !sin! and 'arctan', 'ln' can be declared in the 
outermost block in WALGOL. In KALGOL, however, this will give rise to 

a failure, since the identifier 'ln' is declared twice. 


If wrong library, requests have been made for input/output (usually A2 
or A3 requested when A1 is required) failures 18-355 in P295 will occur 
in KALGOL, WALGOL does not detect this error. 


Unlike KALGOL, WALGOL clears the core store before entering the program. 
This may lead to inconsistent results from various runs: in KALGOL, A 
common error which causes this type of inconsistency is the use of a 
variable before it has been assigned to. 
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5.5 WHETSTONE IN PROMPT 


The system described here includes segmentation which is described in 
chapter 2.3. The purpose of the system is to translate an ALGOL program 
from dise onto disc, which allows for the program to be executed as soon 
as the translation is completed if this is required. 


The result of this translation is an Object Program on the disc. 

This object program is in an internal code acceptable only to the 
Whetstone ALGOL Controller. Warning messages are also sent to a 
specified device, 


A large number of checks are performed on the ALGOL programs during 

translation. This ensures that most syntax errors are found before 

compilation is complete. Details of the failure messages and a full 
list of failure numbers are given in Appendix I. 


5.5. 1 Method of Use of the Translator 


This Compiler will only work from a disc. 


Entry to the system is by means of the Translate Phase of PROMPT. 
(see Section 6 of S.R. I.M. ). 


DoD. 2 Program Source 


Àll ALGOL programs processed by the Compiler are read from the disc. 
These are either established on the disc by PROMPT or primed onto the 
disc from a POST text tape. 


When the text is presented to the 'Assemble' phase of PROMPT it must be 
preceded by the standard PROMPT Assemble message. 


The ALGOL program which follows this message will be a block or compound 
statement. The final end must be followed by one '—' character. The 
remainder of the text must be in standard AIGOL format. 


The text should contain 'library A@' (the standard function library) and 
requests for the required input/output facilities. These library 
requests should be of the form described in KAZPR and made in the 
outermost block (that is, immediately after the first begin) of the ALGOL 
program. 


5o95 Program Characteristics 


ALGOL Compiler (Whetstone ) is a segmented program which accepts ALGOL 
programs from disc. Selected programs are processed to give Object 
Programs on disc which may be executed subsequently by the Whetstone 
Controller (KAZ50, 51 and 52). 


The Translator (KAZW1) is entered from the Translate Phase of PROMPT. 


The Translator makes one pass through the. norminated ALGOL source 
program, generating the following 5 items:- 
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Usercode Text - This is a Usercode program generated from the bodies of 
code procedures and input/output. Even for ALGOL programs that have no 
code procedures or do not use any of the input/output procedures, a 
minimum Usercode program is generated by the Translator. 


Reference Tables —- These are used by the Whetstone Controller to relate 
run-time failures to the line number of the original ALGOL program.. 


Object Program - This is the processed form of the ALGOL program for 
running under the control of the Whetstone Controller. 


After the Translator has processed the ALGOL program, the Usercode 
compiler (KAZ94) is called down to process the Usercode Text formed 
from the bodies of the code procedures, and produces a binary version. 


Thus the result of a successful translation will be four items of 
information. However, these four items are treated as a single entity 
by library maintenance programs and are identifier by the identifier of 
the index block of the Usercode Text, that is: 


DeD Warning Messages 


There are some constructions in ALGOL programs which, although legal 
ALGOL, may not give the result that the programmer intended. To draw 
the programmer's attention to this, the Translator outputs messages to 
the Output Device. These are called warning messages and to distinguish 
them from failure messages they are inset by a tab (or 6 spaces if output 
to the printer) from the start of the line. 


Details of the warning messages are given in 7.1.1. 


5.5.5 Feilure messages 


A comprehensive set of checks is performed on the AIGOL program as it is 
being processed by the Translator. If an error is found, a failure 
message is output on the Output Device. 


After an error, the Translator resumes the search for. more errors in the 
ALGOL. 


At the end of an ALGOL program in which errors have been found, the 
Translate Phase Control of PROMPT is re-entered and 
<identifier> FAILS 03 is output to the monitor. 


If the libraries cannot be found on the disc 
<identifier> PAILS 05 is output to the monitor. 


At the end of successful processing of an ALGOL program by the Translator, 
the Usereode Compiler (KAZ94) is entered to process the.Usercode text of 
code bodies. Any failures found in this Usercode text will be given in 
the form described in Section (6.4) of the KDF9 S.R.L.M. 
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5.5. 6 Normal Correction Procedures 


In the event of & machine failure or a failure leading to Director 
action, the program may be re-entered vis ihe failure action, by means 
of an 'Even Restart!. This causes the Translator to output the 
appropriate failure message (fail number 134) and then to re-enter 
Translate Phase Control of PROMPT with the failure marker set. 


Debe Execution of the Translated Program 

The program is run using KAZ50, KAZ51 and KAZ52. These are disc 
versions of KAB50, KAB51 and KAB52 and their use is described in 
Chapter 2.5 (segmentation). 


5.6 STORE REQUIREMENTS 


5.6.1 Non-Segmented WALGOL Storage 


Program Area 


This consists of the area required by KMWO5 + the area required by the 
Usercode Bodies. The space allocated for this is 8000.words, and this 
amount can only be changed by altering the compiler. (See Section 13.5 
division M of the S.R.L.M.). 


Data Area 


This contains the ALGOL of the program, in a code internal to the 
compiler, and the stack. The size of the coded ALGOL is given at 
translate time in the message: 


SIZE nnnn 


The store required for the stack depends entirely on the Block structure 
of the program and so is difficult to specify. Basically the 
requirements are: 


For each variable, string or label 2 words 

For each array 1 word for each element 
+ 1 word for each dimension 
+ 2 words for addressing the 


array 
At the entry of each block 5 words of link data 
At the entry of each procedure 5 words of link data 


+ 2 words for each parameter 
+ A second area for each array 
called by value. 


In addition several words of the current stack level are used for 


working space, this amount varies but rarely exceeds 50 words. One such 
area exists for each block or procedure which has not yet been completed. 
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ifier holds the first eight characters of the variable 
identifier. 


The Ident 


The Allocated Address is the stack location given to the variable, 
and is relative to Ill. 


7.2 COMON ERRORS 


The notes which follow may well prove useful in avoiding many of the 
errors which occur in KDF9 ALGOL programs. 


NOTES 


1. Use of subscripted variables without any subscript expression 
is a common cause of failures. Also the mumber and type of 
procedure parameters should be carefully checked. 


2e ALGOL Matrix users often fall into the trap of using reserved 
identifiers wrongly». This is the cause of a great many 
failures. The list of reserved identifiers can be found in 
Appendix G of the KDF9 ALGOL Matrix Scheme Users Manual. 


25 A clear program layout, using 'tabs' and 'spaces! to give 
end the same indentation as the corresponding begin, helps 
greatlv the reading of a program. Also, use of end comments 
helps define procedure end, 


for example procedure alpha ( - - - ); 
begin - 
begin 


end 


end alpha; 


4. Use of short comments throughout the program will help in 
understanding what is going on. Wany short comments are much 
better than one long one. 


5. If à format is required to be used more than once, either by 
separate 'write! statements, or by a loop enclosing a single 
‘write! then evaluating the format once only, and assigning 
the result to an integer variable will improve run times. 


6. Replace for statements with constant increments written as a 
string by a step until list, that is, replace 


for cv: =a, ati, at2xi, --, atnxi do 


by for cv: = a step i until atnxi do 


This will improve translate and run times, with an without. 
optimiser. 
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Te 


8e. 


9e 


10. 


11. 


126 


T e dB d 


When using type procedure with statements, try to arrange the 
expression so that the type procedure call is near or at the 
beginning of the statement, 


However, if the procedure call is liable to change other variables 
within the expression, be careful, 


Use formal procedure parameters by value as far as possible. This 
will cut down the coding produced by a ratio of approximately 6:1, 
hence giving faster translation, shorter object programs, and faster 
object programs. 


However, calls by value mean that the variable value after the 
procedure call cannot be changed. Hence many parameters cannot be 
called by value or & procedure's results will be inaccessible, 


"hen variables are declared within & program and later assigned to 
by constants, then if the constant is of the same type as the 
variable a more effecient object program will result. 


for example real a ; 


at = 23 as = 2.03 
The second statement is the better. 


It should be noted that more space is needed if the constant is of 
type real and is used only once, However, as soon as the constant 
is used more than once, then space is saved. 


Give all identifiers the same case, and avoid the use of alphabetic 
'O'. This will avoid confusion, and aid correcting programs from 
the line-printer output, 


Avoid excessively long statements, which involve complicated 
nesting store handling, 


One or more statements must be present of a procedure which has a 
formal procedure as a parameter in order that the corresponding 
actual procedure to the formal may be determined. At least one 
statement must not be an actual parameter to another procedure, 
Failure 017/20 will occur if it is not possible to match a 

formal procedure with an actual procedure, 


NOIL. If formal procedure chaining is used, there :ust$ be an actual 
procedure to end the chain. 


A null program, i.e. 


begin 


end > 


will not translate under Kidsgrove. 
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abs(E) for the modulus (absolute value) of the 
value of the expression E 

sign(E) for the sign of the value of E(+ 1 for E > 0, 
0 for E = 0, —1 for E < 0) - 

sqrt(E) for the square root of the value of E 

sin(E) for the sine of the value of E 

cos(E) for the cosine of the value of E 


arctan(E) for the principal value of the arctangent of 
the value of E 

for the natural logarithm of the value of E 
for the exponential function of the value of 


E (e8). 


These functions are all understood to operate indifferently 
on arguments both of type real and integer. They will 
all yield values of type real, except for sign(E) which will 
have values of type integer. In a particular repre- 
sentation these functions may be available without 
explicit declarations (cf. section 5 Declarations). 


In(E) 
exp(E) 


3.2.5 Transfer functions 


It is understood that transfer functions between any 
pair of quantities and expressions may be defined. 
Among the standard functions it is recommended that 
there be one, namely 

entier(E) , 


which "transfers" an expression of real type to one of 
integer type, and assigns to it the value which is the 
largest integer not greater than the value of E. 


3.3 Arithmetic expressions 

3.3.1 Syntax 

(adding operator) :: = + | — 

<multiplying operator) :: = x |/|+ 

(primary) :: = (unsigned number) | (variable) | 
<function designator) | (<arithmetic expression)) 

(factor; :: = (primary) | <factor>  (primary» 

<term) :: = «factor» | «term» (multiplying operator» 
(factor? 

(simple arithmetic expression» :: = <term) | (adding 
operator) (term? | (simple arithmetic expression) 
(adding operator) <term) 

Xf clause) :: = if (Boolean expression» then 

«arithmetic expression» :: = (simple arithmetic expres- 
sion) | <if clause» (simple arithmetic expression) 
else arithmetic expression» 


3.3.2 Examples 
Primaries: 

7.39419—8 

sum 


(a — 3/y + vu 1 8) 
Factors: 
omega 
sum ^ cos (y + z x 3) 
7.39410 — 8 t wli + 2,8] t (a — 3/y + vu 1 8) 
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Terms: 

U 

omega X sum 4 cos (y + z x 3)/7.394,9 — 8 
twli + 2,8]4 (a — 3]y + vu 8) 


Simple arithmetic expression: 
U — Yu + omega x sum 4 cos (y + z x 3)/7.394,9..8 
twli + 2,8] 4 (a — 3/y + wt 8) 


Arithmetic expressions: 

wxu— Q(S + Cu 12 

if q > 0 then S + 3 x Q/A else2 x S+3xq 

if a <0 then U + V else if a x b> 17 then U/V else if k + y 
then V/U else 0 

a X sin (omega x t) 

0.5719 12 x a [N x (N — 1)/2, 0] 

(A x arctan(y) + Z) 4 (1 + Q) 

if q then n — 1 else n 

if a < 0 then A/B else if b = 0 then B/A else z 


3.3.3 Semantics 


An arithmetic expression is a rule for computing a 
numerical value. In case of simple arithmetic expres- 
sions this value is obtained by executing-the indicated 
arithmetic operations on the actual numerical values of 
the primaries of the expression, as explained in detail 
in section 3.3.4 below. The actual numerical value of a 
primary is obvious in the case of numbers. For variables 
it is the current value (assigned last in the dynamic 
sense), and for function designators it is the value 
arising from the computing rules defining the procedure 
(cf. section 5.4.4 Values of function designators) when 
applied to the current values of the procedure parameters 
given in the expression. Finally, for arithmetic expres- 
sions enclosed in parentheses the value must through a 
recursive analysis be expressed in terms of the values of 
primaries of the other three kinds. 

In the more general arithmetic expressions, which 
include if clauses, one out of several simple arithmetic 
expressions is selected on the basis of the actual values 
of the Boolean expressions (cf. section 3.4 Boolean 
expressions). This selection is made as follows: The 
Boolean expressions of the if clauses are evaluated one 
by one in sequence from left to right until one having the 
value true is found. The value of the arithmetic expres- 
sion is then the value of the first arithmetic expression 
following this Boolean (the largest arithmetic expression 
found in this position is understood). The construction: 

else «simple arithmetic expression» 
is equivalent to the construction: 

else if true then (simple arithmetic expression» 


3.3.4 Operators and types 


Apart from the Boolean expressions of if clauses, the 
constituents of simple arithmetic expressions must be 
of types real or integer (cf. section 5.1 Type declarations). 
The meaning of the basic operators and the types of the 
expressions to which they lead are given by the following 
rules: 
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3.3.4.1 The operators +, —, and x have the conven- 
tional meaning (addition, subtraction, and multiplication). 
The type of the expression will be integer if both of the 
operands are of integer type, otherwise real. 


3.3.4.2 The operations (term) / (factor) and (term) + 
«factor» both denote division, to be understood as a 
multiplication. of the term by the reciprocal of the 
factor with due regard to the rules of precedence (cf. 
section 3.3.5). Thus, for example 

ajb x 7/(p —4) x v/s 
means 
(((a x 67) x D x (p—4-9) x » x (7?) 

The operator / is defined for all four combinations of 
types real and integer and will yield results of real type 
in any case. The operator — is defined only for two 
operands both of type integer and will yield a result of 
type integer, mathematically defined as follows: 


a ~ b = sign (a/b) x entier (abs(a/b)) 
(cf. sections 3.2.4 and 3.2.5). 


3.3.4.3 The operation (factor) T «primary» denotes 
exponentiation, where the factor is the base and the 
primary is the exponent. Thus, for example 
2^nf]k means (2")* 
while 
2^(n]m) means 2” 

Writing i for a number of integer type, r for a number of 

real type, and a for a number of either integer or real 

type, the result is given by the following rules: 
a^i Ifi 20,axax...x a(i times), of the 
same type as a. 

If i — 0, if a * 0, 1, of the same type as a, 
if a — 0, undefined. 

Ifi —0,if a * 0, llaxax...x a) 
(the denominator has —i' factors), 
of type real, 
if a = 0, undefined. 

If a > 0, exp (r x In(a)), of type real. 

If a= 0, if r > 0, 0.0; of type real, 
if r < 0, undefined. 

If a — 0, always undefined. 


3.3.5 Precedence of operators 


The sequence of operations within one expression is 


generally from left to right, with the following additional 
rules: 


3.3.5.1. According to the syntax given in section 3.3.1 
the Following rules of precedence hold: 


atr 


first: T 
second: x / + 
third : +— 


3.3.5.2 The expression between a left parenthesis and 
the matching right parenthesis is evaluated by itself and 
this value is used in subsequent calculations. Conse- 
quently the desired order of execution of operations 
within an expression can always be arranged by appro- 
priate positioning of parentheses.. 
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3.3.6 Arithmetics of real quantities 


Numbers and variables of type real must be interpreted 
in the sense of numerical analysis, i.e. as entities defined 
inherently with only a finite accuracy. Similarly, the 
possibility of the occurrence of a finite deviation from 
the mathematically defined result in any arithmetic 
expression is explicitly understood. No exact arithmetic 
will be specified, however, and it is indeed understood 
that different hardware representations may evaluate 
arithmetic expressions differently. The control of the 
possible consequences of such differences must be 
carried out by the methods of numerical analysis. This 
control must be considered a part of the process to be 
described, and will therefore be expressed in terms of the 
language itself. 


3.4 Boolean expressions 
3.4.1 Syntax 
<relational operator) :: = <|<|=|>|>|+# 
<relation> :: = 
<simple arithmetic expression) <relational 
operator) (simple arithmetic expression) ~ 
(Boolean primary) :: = «logical value» | «variable» | 
(function. designator) | (relation) | 
(Boolean expression») 
«Boolean secondary» :: = (Boolean primary) | 
^ (Boolean primary» 
KBoolean factor) :: = «Boolean secondary) | 
«Boolean factor» A (Boolean secondary» 
«Boolean term) :: = (Boolean factor) | 
«Boolean term? V (Boolean factor» 
implication) :: = (Boolean term) | 
<implication>) 5 (Boolean term) 
<simple Boolean) :: = <implication) | 
(simple Boolean) = <implication) 
«Boolean expression) :: = (simple Boolean) | <ifclause> 
<simple Boolean) else <Boolean expression) 


3.4.2 Examples 

x=-—2 

Y>VVz<q 

at+b>—-SAz—d>q}t2 

PAQVx#¥y 

g= aanb 7ceVdVerd nf 

if k < 1 then s > w else h <c 

if if if a then b else c then d else f then g else h < k 


3.4.3 Semantics 


A Boolean expression is a rule for computing a logical 
value. The principlesof evaluationareentirely analogous 
to those given for arithmetic expressions in section 3.3.3. 


3.4.4 Types 


Variables and function designators entered as Boolean 
primaries must be declared Boolean (cf. section 5.1 Type 
declarations and section 5.4.4 Values of functioti* 
designators). - 


I-7-0 


FAIL NO. REASON FOR FAILURE . l 


Ta must be the first symbol of actual parameter 


illegal parameter delimiter after string 


integer labels not allowed 


non type input/output procedure used as function 
designator 


underlined space or tab or illegal tape character 


parity fail 


'>' appears inside program 


time limit expired, machine failure etc., (even restart) 


illegal character in string 


operator intervention (odd restart) 


illegal description of code body 


EXIT, ALGOL or array parameter calls in code bodies not 
preceded by or followed by ';' (or ',' in the case of 
5-hole ) 


machine failure (block level counter negative ) 


ALGOL program too long or does not end with '—! 


illegal parameter call in code body 


identifier specified as a switch or procedure not allowed 
as parameters to a code procedure 


too many code procedures 


illegal ALGOL basic symbol (machine or POST failure) 


no '>' after program 


procedure declaration for standard functions is not 
allowed 


illegal segment identifier 


own variable not allowed in a segment 


illegal program identifier 


.& procedure is not allowed as a paremeter of a segment 


illegal segment 


illegal usercode comment in a code body 


negative number in a usercode instruction or number too 
big (m/e fail) 


floating point number in usercode instruction 


illegal usercode instruction 
illegal delimiter in library call (PROMPT only ) 
library not on disc (PROMPT only ) 
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FAIL NO. 


300 
301 
511 
999 
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REASON FOR FAILURE 


machine/trenslator failure 


machine/translator failure 


machine/translator failure 


machine/translator failure 


I-8-0 
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14/60 rus by name sequence failure |P438 
OR 


15/60 Parameter not real integer, 


P438 
boolean 


16/60 Call by name sequence failure 


| P458 
(oR) l 


17/60 Call by name sequence failure 


P438 
(Mset) 


18/60 Call by name sequence failure 


variable has S and F set 


P458 


| P438 


19/60 Call by name sequence failure 
variable has S set and it is 


set 


| P438 


20/60 Too many actual parameters 


| 21/60 No level parameters exist 


| P458 


22/60 [ in Bound pair list not | P440 


attached to an array identifie 


No level parameters exist 


Operator stack does not 
collapse to begin at end 


No level parameters exist 


Working Space full 
Working Space full 
Working Space full 


Working Space full 


Working Space full 


Working Space full 


6-Bit to 8-Bit conversion 
< > 


Operator stack does not 
collapse to begin program 
at end program 


9 ALGOL 


K-19 -0 


` Fail No. | Technical Reason | Position | Probable Cause 


B60 


Invalid ALGOL = 
B20 should have 
failed 


B20 failure 


B20 failures 


Invalid ALGOL 


B20 failure 
This should not 
occur = if it 


does refer to 
Kidsgrove 


Invalid ALGOL 
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K-20 -0 


Fail No. Technical Reason Position Probable Cause 
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Failure to output generated 
text correctly 


Panacea failure (CH 3) 


Switch element not ina 
parameter list of following 


a goto 
Panacea failure (CH4) P2 
Panacea failure. (CH7) P754 


Panacea failure 20P0 
(interchanging CH's 4 & 5) 


Panacea failure (CH5) P760 


Block nesting Number <O in | P445 Compiler or machine 
begin codeword k 


Main program not empty when | R71P445 AIGOL segment 
translating a segment invalid 


Array element specified PO 
with no subscript 


Not allocated 


left Part list full An excessively 
long left part list 


B60 Nesting store, used Excessive depth of 
during the evaluation of nested brackets in 
arithmetic or boolean an expression 
expressions is overfilled 


Excessive depth of 
blocks or nested 
brackets in 
arithmetic 
expressions. In 
general an 
excessively long 
statement. 


Operator stack full 


Not allocated 


Sum Check failure (ADDER Machine 


+ 
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M-7-0 


FAIL NO, 


STRING NUMBER REASON FOR FAILURE 


DEVICE NUMBER | device already open 
DEVICE NUMBER | device number contains 8 or 9 
DEVICE NUMBER | magnetic tape by OPEN 

DEVICE NUMBER | no table entry for this device 
DEVICE NUMBER | no input-output tables relative 
to this device 

DEVICE NUMBER | Parity failure on monitor 


READ/ Exponent Exponent out of range 
DEV. NO/ Exponent 49 Or e in exponent 
Number read so 
far more than one decimal point 
Number read so 
far more than one sign 
Number read so 
sign not at beginning of number 
+ = 40» without a digit 
far no digit after decimal point 
Number VR Set | number out of range 
| WRITE Number being | Failure in alarm printing 
| output at probably machine error 
| point of 
| failure 
FIND 


DEVICE NUMBER | device already found 
DEVICE NUMBER | Parity failure 

DEVICE NUMBER | Invalid tape identifier in string 
DEVICE NUMBER | Input-output tables not available 


qM TN = ll o An Ui F&F Wroo ü OQ U fU M d 


INTERCHANGE 


DATASKIP 
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M-8-0 


a Rm 


READ BINARY DEVICE NUMBER | Device not found 


aidera: ETW | 
| DEVICE MINDER Parity failure | 
1 Exponent | Exponent out of range 
2 Exponent | 4o OF » in exponent | 
3 Number read  |more than one decimal point | 
so far | | 
4 Number read more than one sign | 
so far | | 
5 | Number read sign not at the beginning of the | | 
| so far number 
6 |-1 i+ = 40 © without a digit 
7 | Number read {no digit after the decimal 
| so far | point 
8 Number VR | number out of range 
iset | 
| Terminating | Invalid terminator 
[basic Symbol jo o 
DEVICE NUMBER | Skip on writing device 
DEVICE NUMBER | Skip on character device 
DEVICE NUMBER | Backward skip to BTL that is, 
before data 
DEVICE NUMBER | Parity failure 


DEVICE NUMBER | Device not found 


1 DEVICE NUMBER - Device not found 

2 | DEVICE NUMBER | Writing on reading device 

3 DEVICE NUMBER | Writing on character device 
4 
5 


WRITE BINARY 


|DEVICE NUMBER | Parity failure 
| DEVICE NUMBER } Block count incorrect on 
reaching ETW 


—————— 


DEVICE NUMBER | Out of range integer in array 
] heading 

DEVICE NUMBER | W not 1 or -1 

DEVICE NUMBER | d»51 

DEVICE NUMBER | array size incompatible 
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4° ' AUTHOR'S INTRODUCTION LE 


ALGOL 60 is a programming languege for describing numerical processes 
and has the unique advantage of interneticnal recognition as a common 
language. ALGOL's inherent merits &re the bases of its widening acceptance 
for both scientific and engineering applications. The power of its state- 
ments often surprises newcomers. Its conciseness avoids much of the tedium 
in other forms of programming, simplifies the programming of complex 
problems, and makes it an acceptable medium for solving the occasional 
problem. The use of conventional symbols of mathematics and the borrowing 
of ordinary English words to form ALGOL symbols helps to make an ALGOL 
program easy to read and understand. The ALGOL identifiers are much more 
easily recognised and distinguished by the human eye than the numerical 
Storage representation of computer codes. These advantages, by making 
programming easier. also enable a program to be written in a shorter time 
and result in fewer mistakes. 


Of particular value are the ALGOL programs and procedures published 
throughout the world, which are immediately available to the user of the 
language. By their means he has access to the work of recognised experts 
in the field of numerical analysis and to a wider variety of computer 
programs and techniques than can be obtained by using one machine code 
only. 


The ALGOL 60 language is defined in an official publication entitled: 
"Revised Report on the Algorithmic Language ALGOL 60"* 


There are practical objections to the implementation of the complete 
language for programming use on KDF 9. For the infornation of those 
already familiar with ALGOL, KDF 9 ALGOL is & proper subset of ALGOL 60 
consisting of the complete language restricted as follows: 


(1) No integer labels. 
(2) No own arrays with "dynamic bounds". 


(3) Each formal parameter must appear in the specification part of the 
procedure; actual parameters corresponding to a formal parameter 
called by name to which assignments are made, or which is specified 
as an array, must have the same type as specified for the formal 
parameter. 


(4) Actual procedures used in place of the same formal parameter must 
have similar specification parts. 


The ALGOL 60 Report allows procedure bodies to be expressed in "non- 
ALGOL language". For KDF 9 this possibility offers two advantages: 


(i) Procedure bodies in KDF 9 user code may be used for the realis- 
ation of input-output facilities, or perhaps to obtain increased 
speed of execution of computational procedures; 


*The Computer Journal, Vol. 5 No. 4. January 1965. 


1* Author's Introduction (cont. ) um 


(ii) Segmentation of large programs becomes convenient - a code body 
can be a call of an already translated ALGOL procedure; this is 
more fully described in English Electric notes on KDF 9 ALGOL. 


It must be understood that the input-output facilities described in 
this manual are not part of the language as such; they are provided in the 
form of procedures and consequently can be accepted, or rejected and others 
used in their place. In practice some procedures will come to be regarded 
as standard; but, equally, the range of available procedures may be 
extended to cover requirements as yet unforeseen. 


Before a program written in the ALGOL language can be run on KDF 9 a 
compiler is needed to produce an equivalent program in machine code. Two 
such compilers accepting the same ALGOL programs are provided.* One aims 
at fast compiling and is of particular application to/ALGOL programs in 
the testing stage. The other takes longer to compile but produces a 
faster object program, and is therefore more suitdble at a later stage of 
program development. Given the Advance Control facility of KDF 9 it is 
predicted that there will be little difference in speed of operation 
between the translated program and an ordinary hand-coded version, when 
this second compiler is. used. 


The present edition of the manual is a revision of the "Simple 
Introduction to ALGOL Programming for KDF 9" (December 1961) and includes 
a description of those aspects of KDF 9 ALGOL omitted in that document. 
Subscripted variables and arrays are introduced immediately after ALGOL 
statements. The section on input and output of data is re-written to 
convey the new system as now being implemented. Switches and designa- 
tional expressions are introduced in Section 21. This could be omitted 
at a first reading. Another new section (Section 23) on the advanced use 
of procedures discusses some important ideas, although there again 
paragraph 23°4 dealing with parameters which are switches or designational 
expressions could be omitted on first reading. Own variables, procedure 
bodies in code, and strings are considered in new appendices. 


Systems adapted to the needs of KDF 9 users, programmers, and operators 
are being built around the KDF 9 ALGOL compilers both for compiling, testing 
and running programs. Since description of these is expected to appear in 
a separate publication it is not attempted here, except that the final 
section of this manual touches slightly upon testing facilities.xx 


For a working knowledge of ALGOL, merely reading the text of the 
manual is hardly sufficient. The reader should attempt at least a fair 
proportion of the problems and if possible find someone capable of 
correcting his answers. 

E ———————————————————————————————————— —— 


*For descriptions of the compiling methods see the following papers: 


(1) "A muiti-pass transiation scheme ror ALGOL 60" by D. H. R. Huxtable 
and E. N. Hawkins, Annual Review in Automatic Programming, Vol. III, 
1963. 


(2) "The whetstone KDF 9 ALGOL Translator" by B. Randell to appear in 
Automatic Programming Systems, 4.P.1.C. Studies in Data Processing, 
Vole: IV. 


**The description is now published in English Electric-Leo ALGOL 
Notes f and $ 
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we gratefully acknowledge that some of the examples and problems are 
due to Dr. P. Naur and are indebted to Xr. M. Woodger for reading the 
manuscripts of both editions. Comments on the first edition received 
from many di?ferent sources. especially Prof. H. Rutishauser, have greatly 
helped in maxing the present revision. 


It is perhaps also appropriate here to acknowledge help and encourage- 
ment over long periods received by our compiler writers from Professors 
A. van Wijngaarden, E. i. Dijkstra, We L. van der Poel, and Dr. Naur. 


J. S. GREEN. Ph.D. 
ENGLISH ELECTRIC-LEO COMPUTERS LTD. 
Kidsgrove, Stoke-on-Trent, Staffs. 


2e . TWO SIMPLE PROGRAMS i PL 


Here is an ALGOL program: 


begin real x; y, Z; 
open (20); 
x := read (20); 
y := read (20); 
close (20); 
Z:mX-y 
open (10); 
output (10, z); 
close (10) 

end 


This program will read two numbers supplied by means of punched paper 
tape. It will add the numbers together and then punch the result on 
paper tape. (The output paper tape may be printed when desired on an 
off-line flexowriter). 


The above program illustrates some of the elements of ALGOL 
programming which we shall now proceed to examine. The actual operations 
on the computer are stimulated by the statements: 


x :- read (20), y := read (20), z :- x + y, and output (10. z). 


The first two of these read two consecutive numbers from device 
number 20, à paper tape reader, respectively assigning them as values to 
x and y. The third statement 


Zi-xzt4y 


takes the values of x and y, adds them and assigns the result to the new 
variable z. Finally, the fourth statement takes the value of z and 
punches it out on a paper tape punch, device number 10, in a standard 
form. 


The reader will note that besides the four statements which stimulate 
the actual operations of the program, it contains also the underlined 
words begin and end at the beginning and end of the program respectively, 
a rather odd phrase, real x, y» Z, and four further statements containing 
the words'open' and 'close'. The underlining indicates a word that is 
to be taken as a basic ALGOL symbol. The begin and end brackets, as 
they are called, are used to bracket together pieces of program which are 
to be treated as one whole.* In this particular case they enclose a 
single programe 


*A vertical line is often inserted to connect a corresponding 
begin and end. This may help to improve the appearance of a 
program by showing up its structure, but it has no operational 
significance. 


2° Two Simple Programs (conte) 2° 


The phrase real x, y,.2 is called a declaration and the particular 
declaration given here states that the quantities represented by x, y and 
z are to be treated as ordinary numbers. Any arithmetic performed upon 
these numbers will use a floating decimal point. The statements using 
the word 'open' are concerned with preparing the reading and writing 
devices the numbers of which appear as arguments. Statements using the 
word 'elose' shut down the devices specified. Finally, the reader will 
also notice & sprinkling of semicolons. These are used to mark the 
divisions between declarations and statements. 


Here is &nother program: 


begin real x» ys» 23 
open (20); 
x := read (20); 
y :- read (20); 
close (20); 
z t= (xt2 + 3) X (x * 1) x (x x y - 2)/5 
open (10); 
output (10, z); 
close (10) 

end 

This program again reads the values of x and y, but computes a much 


more complicated arithmetic expression before finally punching out the 
result. Writing the formula for z in normal mathematical form we have: 


z = (x^ + 3)(x + 1)(xy - 2)/5. 


By comparing this with the ALGOL form readers will be able to 
appreciate the meaning of the ALGOL arithmetic operator symbols. This 
example serves to illustrate the inherent power of an ALGOL statement. 
Even more complicated expressions are allowed and the rules for 
constructing them will be described later. 


In ALGOL the symbols x, y, and z are known as identifiers and in 
the two programs given here they represent variables which take numerical 
values. The 'read', 'output', 'open' and 'close' occurring in the 
programs are also called identifiers, but they are used to identify a 
particular process or procedure to be followed by the computer. 


The reader may now wish to glance ata larger and more practical 
type of program. Such & program has been provided in Appendix 1 of 
this manual, but at this stage it is not expected to be fully understood 


‘by the reader. 


In KDF 9 ALGOL it is possible to stipulate completely the form in 
which results are to be laid out when printed. The program of Appendix 1 
contains such stipulations about layout, the result of which can be seen 
in the results sheet following the program. The headings, column layout, 
and line spacing are all fixed by statements in the program itself. 


'saseujusied ui USATS Si JƏPLT ay} 'eSenaur'] souatajay 09 TOD TY au} jo 
JOoquIAS Sutpuodsaiioos ay} UIOIJ Szo]pnp ToqUIAS JOO TY 6 ACM 24} 183A913uM 


(NOISUGA Gd V.L-H 3d Vd TANNVHO-8) SHALINITAG TODTV 6 AGM I Ganda 


JUSUILIGO 


atrium 


SATER Tun op - j 
Suis pus wae oj (c) sur < "m | 
toqet MEEI r3) * EEIE (=) s = | 
QoS (.) £ | i usi (C) m ^ 4 | 
alain (4) ] i à (A) * > = | 
Hen [ : ara (v) 9e > + | 
[ead ] "= l | 
EXER ( ° TYVILNINDAS 1VOIDO. 1VNOLLVISH OLLSHITHV | 
ueejooq é el | 
= bu | 
SHOLVOI4IOSdS * SLONOVEE Suolvuvdss SHOLVH3dO 

SuOLVHVIOSG 

| 


SHLLIWIISG 


Be PROGRAM STRUCTURE AND BASIC SYMBOLS si 


In the previous section we have attempted to convey some idea of the 
general structure of an ALGOL program by means of two simple examples. 
We propose in the following sections to examine the detailed grammatical 
structure of the ALGOL language, considering first the basic ALGOL symbols 
and in later sections the various language entities which may be built up 
from these symbols. The review includes: 


1. Basic symbols. 

2. Numbers. 

3. Identifiers. 

4. | Expressions. 

5. Statements. 

6. Declarations, blocks and programs. 
Ts Procedures. 

Some of the above entities will provide ideas new to the reader but 
few of them are inherently difficult to understand. Together with their ` 
associated rules they are required in order to systematize the expression 
of computational processes. Computers are not sufficiently versatile to 
absorb information about problems without such systematization. Because 


of this it is the duty of the programmer to obey the rules in formulating 
his problem. 


Thé building bricks of an ALGOL program are called basic symbols. 
These are: 


1. The letters of the English alphabet, both lower 
~ and upper case. 

2. The digits O to 9. 

5. The logical values true and false. 


4. Symbols called delimiters. 
Delimiters are: 


1. Operators. 
2. Separators. 
5. - Brackets. 


4.  Declarators and specificators. 


Figure 1 lists delimiters in diagrammatic form. Some of the symbols 
in the diagram have a conventional significance and may be clear to the 
reader; others have no obvious significance. It may help him to note 
that sequential operators define the path to be taken through the program; 
' separators serve the purpose of marking divisions between certain ALCOL 
entities, while declarators and specificators are symbols used to describe 
the properties of identifiers. The meaning of symbols not understood at 
this stage should become clear later. 


3° Program Structure and Basic Symbols (conte) 3. 


All the basic symbols in KDF 9 ALGOL have been collected together in 
this section for reference. The ALGOL Report allows different 'hardware 
representations’! for equipment with different sets of symbols and the set 
Shown in Figure 1 is that available for use with eight-channel paper tape 
on KDF 9. Wherever this differs from the official ALGOL 60 reference 
language, the latter is given in parentheses. There is another 'hardware 
representation! available for equipment using five-channel paper tape 
listed in Appendix 8, but throughout the rest of this manual the eight- 
channel representation is used. 


The reader should note that when words from the English language have 
been appropriated for use as basic symbols and given & particular ALGOL 
significance, they have also been distinguished by means of an underline. 
Thus the logical values true and false and delimiters such as if, begin, 
integer, and label must always retain their underlines.* They are 
treated as single symbols, the component letters having no individual 
significance. 


Insertion of blank spaces makes no difference to the meaning or 
operation of any part of ALGOL.** This facility enables the programmer 
to write his program in a format which makes it easier for others to 
follow its course of action. 


When used in a program the basic symbols are strung together in a 
linear sequence with appropriate spacing, making the end of one line of 
program continue on the next. As already stated, the basic symbols are 
used to build up decimal numbers, identifiers, expressions, statements, 
declarations, blocks, procedures, and, ultimately, programs according to 
certain rules. We now explain the purpose of these entities, and rules 
for their construction. 


*Bold type is allowed in lieu of underline in published ALGOL 60 programs. 


iHWhen spaces with operational significance are required in strings (to be 
explained later), the symbol * is inserted to indicate their position. 


4e DECIMAL NUMBERS 4 


Normal signed and unsigned decimal numbers using the digits 0 to 9 
may be written in ALGOL and have the ordinary meanings.* A decimal 
point may only be used when it is followed by a fractional part, 
consisting of at least one digit. Use of decimal integer exponents is 
also allowed, and these must be written with the base 10 inserted below 
the line in small type, thus: 


decimal number ,, integer exponent. 
The exponent may be signed or unsigned. The preliminary decimal number 
may be omitted, while if the subscript ,, appears the integer exponent may 


not be omitted. 


The following examples are allowed:** 


0 16 +6 -79 +10 127 783 
123.56 -0.00312 +065 74.0 .00 
T.56 -33.261 0+2 +271 -.T15 10715 


The following examples are NOT allowed: 


23. 4 3025 3X2 14.5 *6,2- 10,000 
15. 3Sa) 


Numbers in ALGOL and variables denoting numbers are said to be of 
type integer or real. Type integer refers to integers having neither 
exponent part nor decimal fraction part. Type real refers to any 
allowed form of number which is not of type integer. Integer arithmetic 
is normally used within the computer for type integer numbers and 
floating point arithmetic for type real. 


Examples of type integer: 0 2 +63 -9710 
Examples of type real: +6.0 -2.934 64 


The maximum working accuracy available in KDF 9 ALGOL for real 
quantities is between eleven and twelve significant decimal figures. 


An integer quantity must lie in the range -259 to 42224, 


——————————————————————————————————— 


*Though defined in the ALGOL 60 Report, signed numbers are never in fact 
used in programs, signs always being invoked via the definition of 
expressions (See Section 6). They may however be used for input data 
or results in KDF 9 ALGOL. 


**For the purpose of the lists of examples shown in this and the next 
section a string of five or more spaces is used to separate each 
example. 


(2) 


(3) 
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4e Decimal Numbers (cont. ) 4. 
Problems 
(1) Write numbers having the same values as the following, but which do 


not include an° exponent part. 
+7293 8 E -076 
98612, +2 -.1834 075 -4.8 5 
(Solutions to Problems will be found in Appendix Ts) 
The values given by the following numbers may, in some cases, be 


expressed more economically by using a number with an exponent part. 
Show where this is the case. 


17000 -0.00134 =0. 0020041298 
1000 1.0024 170 


Some of the following sequences of characters represent ALCOL 
numbers, some do not. Mark those which do. 


-.0 08 -17-2.50 15.411 732 
315.471,18 +422 2648 n 
4X i972 -88,-7 X 643.2 


(16.20) 1,245 12.8 
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5» IDENTIFIERS 5o 


Mention of identifiers has already been made in Section 2. They may 
be single letters of the English alphabet, upper or lower case, or 
sequences of letters and numbers.* The first symbol of a sequence must 
be a letter. The following could be used as identifiers. 


i Days 1335 
J1 exp 
abCD43e Delta alpha 


In accord with Section 3 the spaces within the identifiers Days 1335 
and Delta alpha are ignored by the ALGOL translator. Note that though 
the sequence A256b might be used as an identifier, 256b may not. 


Identifiers are used for a variety of purposes. Amongst others, 
they may denote labels which mark reference points in the program, and 
they may also denote variable quantities which take a value in the usual 
nathematical sense. 


An identifier which is a variable is said to be of type real, integer, 
or boolean. Variables of type real and integer were mentioned in Section 4. 
Variables of type boolean can take the logical values true or false. The 
means of defining the type of a variable will be explained in Section 18. 


Problem 


Some of the following sequences of characters can be used as 
identifiers, others cannot. Mark those which can. 


begin pT.2 TVPQ 
axv Start value V7 

4T number a29v3 
PPp3 Q(2) epsilon 


*Note that though the length of an identifier may be almost unlimited only 
the first eight characters are significant to the Whetstone produced 
KDF 9 ALGOL translator, while 155 characters are significant to that 
produced at Kidsgrove. 
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6- SIMPLE ARITHMETIC EXPRESSIONS 6° 


Numbers, those identifiers which represent variables, and other 
ALGOL entities having a single numerical value may be used in combination 
with arithmetic or logical and relational operators and certain sequential 
operators to form arithmetic expressions or boolean expressions. 

Initially we shall restrict our attention to subclasses of both these 
types of expression, namely, simple arithmetic expressions (considered in 
this section) and simple boolean expressions (considered in the next).* 


It is even necessary to leave a general definition of simple 
arithmetic expressions in ALGOL to Section 8. However, we may now say 
that they include arithmetic expressions as understood in the normal 
mathematical sense, when these are written in the linear form which 
follows: 

N N N N 


N 
" 0 y (0) Y O 2.2... O y (0) Y 


Here N stands for an unsigned number, V for & variable of real or integer 
type, and O for an arithmetic operator. The diagram is intended to 
indicate that N and V are interchangeable. The initial operator may 
only be an adding operator (+, -) and the broken parentheses indicate 
that in any case its presence is optional. At least one operand (N or 
V) must be present in an arithmetic expression. 


Example: 
2xx 134+n22 


The meanings of the operators used in this example are given below. 


The order of execution of arithmetic operations follows certain 
definite rules. The operations are executed in order of occurrence from 
left to right unless the adjacent operation has a higher priority accord- 
ing to the following list: 


ist 4 
2nd X/ + 
3rd. +- 


Parentheses may be introduced within a simple arithmetic expression to 
override the order of evaluation given by the above rules provided that 
the enclosed symbols form a legitimate arithmetic expression. The 
arithmetic expression with its enclosing parentheses may be introduced 
within the simple arithmetic expression in any situation where an unsigned 
number or variable is allowed. 


The arithmetic operators have the following meanings: 


*We use this last phrase to maintain the parallel with simple arithmetic . 
expressions. Both the old and the revised ALGOL 60 Reports use the 
phrase "simple Booleans". 
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6- Simple Arithmetic Expressions (cont. ) 6- 
^ is the sign of exponentiation. The base precedes the sign and the 


exponent follows. The operation is effected as in ordinary 
arithmetic with the following comments and exceptions. No values 
of base and exponent which would lead to infinite, indeterminate, 

or imaginary results are allowed, and when the exponent is real the 
value of the base may never be negative. The result of exponentia- 
tion is of the same type as the base, if the exponent is integer, 
and positive or zero. Otherwise the result is of type real. 


X+ - all have their conventional meanings. The type of the result is integer 
if both operands are integer, otherwise the result is real. 


/ € both denote division. The first operator may be used with any 
combination of operands and produces & result of type real. The 
operator + is only used for two operands both of type integer and 
yields a result of type integer as follows: 


n + m = sign(n/m)X whole number part (modulus(n/m) ) 


The type of any result obtained by the operation of the above rules 
is as stated. If, for example, the result of some operation involving 
real type numbers happens to have an integer value, its type is not 
thereby changed from real to integer. In terms of the internal working . 
of the computer, though the result happens to be an integer it is still 
in floating-point form. 


Notes: 


(1) In multiplication the multiplication sign must never be omitted. 
One may write 8 X y and (a + 2) X b, but not 5 y and (a 42)b. 


(2) Two operators must not appear adjacent to one another. One 
may write 45 x (-x) and yf(-4), but not 45 x -x and y4-4. 


Examples of simple arithmetic expressions: 
24-215 248-410 


(2 + 2)43 413 = 64 
142x5 - 312 1410 = 312 = 11 - 342 = 11-9 =2 


u 


i 


The results of these three expressions are of integer type. The 
following give real type: 
3/2 - .5 = 1.5 = 5 = 1,0 
94.543 = 742 = 3.0% - 722 = 270-72 
= 27-0 - 3 = 24.0 


If x=4.5, y = 203, 
x*5xyfef2 = 4.5 + 5x 5.2912 = 4.5 + 5 X 27-984. 
= 4.5 + 83.9523 = 88.4523 
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6e Simple Arithmetic Expressions (cont. ) 6o 


Problems 


(1) Evaluate the following expressions stating the type of the final 


result. 
(i) 
(ii) 


-4.6/4 X (16 + 2) 
+60 - 5 X (3 + 2f (4 - 1)). 


(2) Some of the following sequences are arithmetic expressions, some 


are not. 
(i) 

(ii) 
(iii) 
(iv) 

(v) 

(vi) 
(vii) 


(viii) 


Mark those which are. 
a X b/c^à/e X f 

+a X -b 

26 X 43+ 

2 X 6/463 

5.84 (T + n)/4 

PQh« 73 

-(+(-v)) 


p/ars X tu - v 


(3) Assuming that at a certain point in a program the values of seven 
simple variables are as follows, 


va = 2, vb = 5, vc = 4, vd = 5, ve = 6, vf = T, vg = 8, 


find the values of the following expressions: 


(i) 
(ii) 
(iii) 
(iv) 
(v) 


(vi) ; 


(vii) 


(viii) 


(4) Write the 


va * vc X vb/ve 

và X (ve + vg)/ve/va 

vef(vd - vb) 

vftva X (vf - vc)/vo/(vb + vc) 
vefvbt va 

(ve - vf - va) + vc 

ve + (vg - vb) 

(vg - vd)fvb = ve 


following mathematical expressions as ALGOL expressions, 


without using redundant parentheses: 


(i) 


(ii) 
(iii) 
(iv) 
(v) 


8-t 
S + 5 
v 


3 
(v - w) (4 - xy 
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6e Simple Arithmetic Expressions (cont. ) 


(vi) (a”)® 


(vii) _ pd 
r 


(viii) a- 


6» 
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Te SIMPLE BOOLEAN EXPRESSIONS Te 


A boolean expression is a rule for computing a logical value. The 
result may be either the value true or the value false. The boolean 
expressions which occur in practice usually also belong to a subclass 
called simple boolean expressions. 


A simple boolean expression consists most frequently of a single 
relation which takes the value true or false. By a relation we mean 


two simple arithmetic expressions separated by means of one of the 
relational operators: 


<s" => # 
These operators have their conventional mathematical meanings. 
An example of a relation might be: 
n= 0 


This relation takes the value true if n is zero and the value false if n 
is not zero. Other examples might be: 


nx hx (nxh+ 2x2) > 11.51 
(af2 + »12)12— à +b 


The form of a relation can be depicted as follows: 
SAE RO SAE 


where SAE stands for a simple arithmetic expression and RO for a relational 
operator. In performing the operations involved in such a relation to 
find its logical value, the simple arithmetic expressions are evaluated 
first, from left to right, and the relational operation is performed last. 


A simple boolean expression need not be a relation. It could be 
merely a logical value or a boolean variable. It could take a complicated 
form involving a number of relations, boolean variables and logical values, 
the values of which are operated upon by means of the logical operators 
not (—), and (A) and or (V); amongst others. Appendix 2 describes the 
forms which are allowed, but the reader may wish to leave this to a second 
reading. 


Problem 


If i= 2, j = 3. x= 4.5 and y = 2.2, what are the values of the 
following simple boolean expressions: 

(i) ixj>i+j 

(ii) j/i< x/y 

(iii) (x + y) x (x -y) #0 

(iv) G-i4+5X5=0 


Be 


19 


ARITHMETIC AND BOOLEAN EXPRESSIONS 8 


8:1 If Clauses 


It is extremely useful in any programming language to be able to 
make a program choose its course of action depending upon the 
situation arising at run time. Such facility is allowed in ALGOL by 
means of the 'if clause’. Depending upon the truth or falsity of a 
boolean expression the program will either obey different instructions 
or supply the values of different expressions. 


For example we might wish to have an arithmetic expression which 
supplies the value of x? + 1 if x is greater than zero but otherwise 
supplies the value -1. We could write the ALGOL expressions to do 
this as follows: 

if x0 then xf2+1 else -1 
The first part of this expression, 

if x-—0 then 
is called an if clause. An if clause is always written in the form: 

if BE then 

where BE stands for a boolean expressions (as yet not fully defined 
but including simple boolean expressions). The basic symbols if 
and then are sequential operators. 


Example of another if clause: 


if lambda > » 70710678 then 


8.2 Use of the If Clause in Arithmetic Expressions 


As already shown in the first of the above examples it is possible 
to extend the idea of the arithmetic expression by means of the if 
clause. Besides the simple arithmetic expressions considered in 
Section 6 it is also legitimate to have arithmetic expressions 
commencing with an if clause and completed by two alternative 
expressions, the first & simple arithmetic expression, the second 
itself an arithmetic expression. Thus, an arithmetic expression may 
be of the form, 


if BE then SAE else AE 


where SAE and AE stand for a simple arithmetic expression and 
arithmetic expréssion respectively. 


Be 


8*3 
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Arithmetic and Boolean Expressions (cont. ) Be 
edb 


Examples: 
(a) if n - O then O.5 else 1 


(b) if lambda # O then alpha x (1 - alpha) x exp(lambdaf2)/ 
(lambda x 2.3282180) else 0.48394 
In the above exanples both the alternative expressions following 
then are simple arithmetic expressions. We could, however, take our 
more complicated definition for an arithmetic expression and use it 


for the expression following the symbol else. We might then obtain 
arithmetic expressions like those which follow, 


(a) if i = 2 then p- q else if i = 3 then p + q else O 
SAE AE 


J 


r- 


— 
AE 


(b) (Appendix 2 must be read in order to appreciate this example.) 


if p<0 and q< 0 then (px q - p + q)f2 


@O 


lse if p> O and q>0 then p x (q + 1) 12 


else if p = 0 and q = O then 1 else O 


Use of the If Clause in Boolean Expressions 
een Oean Expressions 


Boolean expressions run parallel to arithmetic expressions; 
they may use if clauses in a similar manner. Thus a boolean 
expression may be of the following form: 


if BE then SBE else BE 
Of course, boolean expressions also include simple boolean expressions. 


The following example shows a boolean expression of a fairly 
complex form. The quantities B1, B2, B5, B4, B5, B6 and B7 are 
variables of type boolean and some are used as simple boolean 
expressions and others as boolean expressions. 

BE 
l 


P d SBE 


" » el 


- 
BE 
if if B1 then B2 else B3 then se if B5 then B6 else B 


MO dj L 


BE SBE BE BE SBE BE 


The grammatical structure has been indicated by means of bracketing. 
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8° Arithmetic and Boolean Expressions (conte) 8° 


8:4 A Use for Parentheses 


An arithmetic expression or boolean expression commencing with 
an if clause may be incorporated within a simple arithmetic or Simple 
boolean expression wherever a variable of the corresponding type is 
allowed, if and only if, it is enclosed within parentheses. This 
means that simple arithmetic and simple boolean expressions may be 
quite complicated. In practice such forms do occur occasionally. 
The following is an example of a simple arithmetic expression 
incorporating an arithmetic expression in parentheses. 


JO + (x - y) x (i£ n = O then 0.5 else 1) 


Problems 


(1) Write an arithmetic expression which will evaluate 2t 
2 
1+t 


if A is greater than pi/2, otherwise will evaluate 1 - t^ 


1-4 t? 
(2) Write down an arithmetic expression which will evaluate 
x -1 (x — 0) 
x* - 3x + 4 (Osx <1) 


x 1 (x 2 1) 
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Qe STANDARD FUNCTIONS 9 


The scope and value of ALGOL expressions are enhanced by a facility 
for inserting functions, just as variables may be inserted. One merely 
writes down a function's name with appropriate argument or arguments. 

Here we consider certain standard functions which may be used, although 
other functions are also available as explained in Section 19 on Procedures. 


The standard functions are some of the more frequently occurring 
functions of analysis and are listed below: 


abs (AE) for the modulus (absolute value) of the value of the 
expression AE. 

sign (AE) for the sign of the value of AE (41 for AE—0O, O for 
AE = 0, -1 for AE <0). 

sqrt (AE) for the square root of the value of AE. 

sin (AE) for the sine of AE radians. 

cos (AE) for the cosine of AE radians. 

arctan (AE) for the principal value in radians of the arctangent 


of the value of AE. 


In (AE) | for the natural logarithm of the value of AE. 
exp (AE) for the exponential function of the value of AE. 
entier (AE) for the largest integer not greater than the value 


These functions operate indifferently on &rguments both of type real 
and integer, which must be arithmetic expressions. The functions all 
yield values of type real except for sign (AE) and entier (AE) which have 
values of type integer. When quoting a standard function within a 
program, it is unnecessary to make there any specification of the effect 
expected from this function. 


The following examples show the use of standard functions in arithmetic 
expressions: 


FUNCTION ARITHMETIC EXPRESSION 

abs (AE) abs.(1- 2 x J1/JO) 

sqrt (AE) (1 - alpha)/ sqrt (2 X alpha) 

exp (AE) JO + exp(- x12) X (i£ n = O then 0.5 else 1) 


The effect of the function entier is shown by the following results: 


entier (6.99) - 6 


entier (-4.2) = -5 


A useful expression is entier (x + 0.5) which takes the value of the 
nearest integer to x. 
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9e Standard Functions (conte) 9. 
Problem 


Write the following expressions in ALGOL using standard functions: 
e2lcos3a |, N/ tg amüan Va" s v4), 


a cos x + b sin x - 1 


2 ee 
a cos x +b sin x +1 
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10. STATEMENTS 10° 


Those assemblies of basic symbols which form units of operation within 
an ALGOL program are called statements. Statements written consecutively 
are usually also executed consecutively, and two independent statements 
written consecutively are always separated by a semicolon, thus: 


S; S 


The statements contained in the two simple programs of Section 2 obey 
this rule. We repeat the statements of the first of these programs 
below for the reader to note that this is so. 

open (20); 

x :2 read (20); 

y 3= read (20); 

close (20); 

Zz $= xX + y3 

open (10); 

output (10, z); 

close (10) 

It is possible to write a statement containing other statements 

within itself by forming either a block or a compound statement and we 


shall consider these new ALGOL entities in later sections. We consider 
now some of the possible forms of the simple statement. 
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11e ASSIGNMENT STATEMENTS l 11° 


Some of the ALGOL statements appearing in the previous section are 
assignment statements, for example: 


Z:i-X-ty 
This statement is executed by giving the quantity z the value of x + y. 


The symbol, :=, is the assignment symbol and is pronounced as "is 
assigned the value of" or "becomes".* The complete statement would 
read: 


zZz is assigned the value of x + y. 


The above example is particularly simple, but more complex forms are 
allowed. Thus, on the right hand side of the assignment symbol, one 
could have any arithmetic expression, or even a boolean expression if the 
variable on the left side were also of type boolean. It is possible to 
extend the left hand side by writing down a list of variables (called 
left part variables) with assignment symbols inserted to separate each 
from its neighbour. The value of the expression is then assigned to all 
the left part variables. 


The assignment statement in its general form may therefore be 
illustrated as follows using V to stand for any variable: 


AE 
BE 


$- V $7 evcecvee MEL 


Left part list 


The name left part list is given to the list of all the left part 
variables together with the assignment symbols as shown in the diagram. 


Examples of Assignment Statements: 


s= 0.1 
JO :- n :- 0 
xt=Z2+nxXh 
JO := JO + exp(-x!2) x (if n = O then 0.5 else 1) 
Bi := B2 := B5 := false 
Bool :=n £ m + 1 
Types in assignment statements must obey certain rules, for the most 


part a fairly obvious set. Thus, all variables in a left part list must 
be of the same type. If the variables are boolean, so must be the 


expression on the right. If the variables are of type real or integer 
the expression must be arithmetic. However, it is allowable to have the 


SS M € 


*The symbol := has a different meaning from the symbol =, denoting 
equality. The latter asserts the current situation to have a 
particular property, while the former performs an operation which may 
change the current situation. 
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14° Assignment Statements (conte) l 14° 


arithmetic expression differing in type from the variables. In this 
event it is understood that the numerical value of the expression is 
transferred to real variables and the largest integer not greater than 

AE + 0.5 to integer variables (that is, the nearest integer). Note 

that the rule for assignment of a real arithmetic expression to an integer 
variable does not correspond to the system followed in integer division. 


Example: 


Find the action of the following assignment statements, given that 
n is of integer type, and x and y real. — 


M BW HB 
i 


1 
3 
x 
t= n + 23 
x+y /2T(n + 1); 
y := if n = O then x + y else x - y 


We form a table containing a column for each variable, in which each new 
value of this variable is entered. 


Final valuess- n = 0, x = 5.5, y = 9.5 


Problems 


(1) Using the scheme of the example above, follow the action of the 
following statements and find the final values of the variables. 
They are all to be taken as type real. 


:= T; 
+ 3X b -= 2036-13 


b 
a 
z= p + (a + 3)/(-b - 13); 
ps:=q-bx 0.2 


p o wp 
i 


446 
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Assignment Statements (conte) 14> 


(2) Using the same system find the final values of real variables ri, 


ra, rb, and integer variables n, i, je 


n s= 53 

ri := n/(n + 15); 

rb s= n + 6/(6X ri + 0.5); ` 

is=n sen - 23 

j := rb - i; 

ra := (j - i) x r1 X (rb - 4); 

ris=srat+ybtn+i+j+8x ri; 

rb s= (rl - rb x n+ j -ra)f(rb - j) + ra; 
t= ni=1+n (j - 3)5 


1 :2 n t ra 


(3) Using the same scheme again find the final values of the real 


variables ra, rb, the integer variable ia, and the boolean variables 
ba, bb. 

fra 4= 7-55 

ia s= 5; 

rb := 3x ra = 2 X ia; 

ba :» rb>ia and ia>ra; 

ra : 2 x (ra - ia) -1;. 

ba :- not ra>ia or ba; 


bb s= ba and rb>ia and ra—rb 


(This example requires a knowledge of the contents of Appendix 2). 
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12» GOTO STATEMENTS AND LABELS . 12° 


12-1 Goto Statements 


Goto statements usually take the form: 


goto L 


where L stands for any label. They interrupt the normal sequential 
flow in the execution of statements by causing a jump to the statement 
prefixed by the label L. The label L may be any identifier not used 
for some other purpose,* while the basic symbol goto may also be 
written as go to if desired. The following might occur as goto: 


Statements. 
goto R goto L25 
goto SKIP goto xy ZP 


goto Repeat 


Corresponding to the label appearing in the goto statement, the same 
label must be inserted elsewhere in the program to specify the 
destination. Insertion of this label is performed by labelling 
statements, as now described. 


12-2 Labelled Basic Statements 


The two forms of statement, assignment and goto statements 
already mentioned are included in the category of unlabelled basic 
statements (UBS). A dummy statement also exists and is included 
in the same category. This is simply an empty Space which does 
nothing. 


A label may be prefixed to an unlabelled basic Statement in 
the following way: 


L : UBS 
The result is called a basic statement (BS). 


The general form for a basic statement allows any number of 
labels: 


L: Ls .... Ls UBS 
It also includes the unlabelled basic statement as a special 


case. (It will now be seen that a dummy statement might sometimes 
be useful for setting a label). 


— c 


*In ALGOL 60 an unsigned decimal integer may also be used as a label but 
this is not allowed in KDF 9 ALGOL. 
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Problem 
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Goto Statements and Labels (cont. ) 


126 


The following piece of program generates a sequence of values 


for SUM. 


Find the first four of these values. 
q and SUM are real, while n is integer. 


loop 


n s= 1; 
p :2 0.53 
SUM :- 0; 
q :21; 


goto loop 


The variables p; 
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13e FOR STATEMENTS 13° 


ALGOL has a special form which enables the execution of any 
statement to be repeated a number of times. This is called the ‘for 
statement!. It is the most appropriate ALGOL equivalent to a repeated 
loop in normal machine language programs and next to the assignment state- 
ment it is probably the most valuable statement available. 


Two simple examples will help to explain what a for statement is like 
before we define the general form. 


for i := 1 step 1 until 5 do x :- x + 12 
for x := 2 while y<0 do y :- y +x 
The first of these for statements increases the value of x by 12 on 
five consecutive occasions at the same time incrementing the value of i 
by 1 until it becomes greater than 5. . The second example repeats the 
Statement, y :- y + x, for as long as y<O, keeping x at the value 2 
during that time. 
13°1 The General Form of the For Statement 
The general form of the for statement is written as follows: 


for V :- FL do S 


where V stands for a controlled variable and 5 for any statement. 
FL stands for a 'for list' which we now explain. 


The for list is constructed of for list elements (FLE) according 
to the form, 


FLE, FLE, ..... FLE 


A for list element may take any of the following forms: 


AE 
AE step AE until AE 
AE while BE 


where the basic symbols step, until and while are separators, 
separating the arithmetic expressions (AE) and boolean expression (BE). 


The for list gives & rule for computing the values which are 
consecutively assigned to the controlled variable before each 
execution of the statement following do. This sequence of values 
is obtained from the for list elements by taking these one by one in 
the order in which they are written. The effect of ihe three types 
of for list element may best be explained by means of examples. 
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13e For Statements (cont. ) i 13° 


15.2 Arithmetic Expression Element 
for x :- (p + q)13, p x a do y :- y/x 


This for statement assigns the value of the arithmetic expression 
(p + q)t3 to x and then executes the statement y := y/x. It then 
returns to the for list and assigns p x q to x. The statement 
y := y/x is again executed. The for statement has now been 
completed and control passes to the next statement in the program. 


15.5 Step-until Element 


for n := 1 step 1 until 10 do m :- nf5 


This statement calculates the cubes of the first ten integers. 
It begins by assigning the value 1 to the controlled variable n 

. and. then obeys the statement following the symbol do. The controlled 
variable is now increased by a step of 1 making it n = 2. The 
Statement is again obeyed using the new value of n, and n increased 
once more. The process continues until n becomes greater than 10 
when the for statement is finished and all cubes up to 10? have been 
calculated (but only 103 remains as the value of m). 


Any arithmetic expression may be used for the initial value, 
the step and the limit in the step-until element. This may lead to 
negative steps or even to steps which change sign during the execution 
of the for statement. A complete specification of the action in 
such circumstances is given in Appendix 3. 


Problem 


(1) Follow the action of the following statements 


Delta x := 0.13 
for x := 0 step Delta x until 0.55 do y :- (1 - x)t2 


(2) Write a for statement to add together the first n integers. 
First solve the problem by writing a preliminary assignment 
statement before the for statement, then find another solution 
which only requires a for statement. 


15.4 While Element 


fork := i + 4 while i x (i - 1)—20 do i:- k«2 


In this for statement the value of the arithmetic expression i + 1 
is repeatedly assigned to k and the statement i :- k + 2 executed 
for as long as the boolean expression i x (i - 1)<20 is true. 
Assuming an initial value for i of i = 0, the following values of 
ihe variables are obtained. 
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15. For Staterents (cont.) 13* 


Initially 


The values of i and k immediately before leaving the for statement 
are i = 6, k = T. 


Problems 


Follow the action of the following for statements. 


(1) for p := p+ 2 while p12 + q12—100 do q :- p * 1 
where before entry p = 1 and q = -T. 


:= 2, 5, 6 step 1 until 10, -1 while m<0 do 
m s= ix(ie1) 


(3) If p, Qs r, s are real and k, m are integer, find the values 
assigned to controlled variables in the following for statements 
and the final value of s: 
p t= 13 q t= 25 r :2 33 8 t= 0; 
=p+a,q4-Prxp-qdos :=s8+k; 
:= q step r until 7 xq + 1 dos t= s - mj 


k 
m 

or k := 2, 8, 2 step 2 until 6 do s :=s + 2X kj 
m: S + 45, m+ 2 while s<0 do S :- 8 - mj 
k 


:2 | step 1 until 5 do 


form := 3 step -1 until Odo s:=s+kt+m 


13°5 Miscellaneous Notes on For Statements 
Note (1) In ALGOL the controlled variable has no defined value after 
the for statement has been completed by exhaustion of the 
for list. However, the value left by one for list element 
may be used in the next element of the same list, as in 
for i $- 1,5 i + 1 while eee 


Note (2) Labels may be prefixed to a for statement. The complete 
form of a for statement is: 


L: Ls: e+ L: for V := FL do 8 


13e For Statements (cont.) 13- 
Note (3) Exits from within a for statement body, that is the 


Note (4) 


statement following a do, by means of goto statenents are 
allowed. In such an event the controlled variable keeps 
its current valve on exit. (The importance of this and 
the following note will be better appreciated when later 
sections of the manual have been read and it is realised 
that a for statement body can contain many statements.) 


A goto statement outside a for statement may not refer to 
a label within the for statement; that is, a jump into 
a for statement body from outside is not sllowed. 
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14- COMPOUND STATEMENTS 14e 


In Section 10 the reader was told that statements might be grouped 
together to form blocks or compound statements. We now write down the 
form to be taken by the compound statement: 


Li: Li: scoe L : begin S; S; ..... S; S end 


The sequence of one or more statements is surrounded by the statement 
brackets, begin and end. These two basic symbols enable the sequence of 
statements to be employed as one whole.* Labels may also be prefixed if 
required, but are not essential. Note also as a matter of punctuation 
that the final statement S in the sequence need not be followed by a 
semicolon; there is no following statement from which it must be 
separated. 


Examples: 
(1) begin x :=2+nxh; 
JO := JO + exp(-x12) x (if n = O then 0.5 else 1) 
end 
(2) begin i := 2; n := 1; h := b/2; 
goto R 


end 


The compound statement may be used wherever a statement is allowed, 
in particular, after the do in a for statement. This extends the scope 
of the for statement, and enables a number of statements contained within 
the compound statement to be obeyed repeatedly. Thus Example (1) above 
forms part of a for statement in the specimen program of Appendix 1. 


Problems 


(1) Use a for statement to evaluate the product 


a-ba«D... iml 


(2) Write & for statement to evaluate the function 


y = mt | yp? 4 Bd = 2) a — 28 0-8 (a sinb + b cosb)-b 
Z me 2 2 2 
a +b L a +b 
28 


1-28 


where a = 1 (1-8), b= 


for s = 0.1 (0.1)0.9. 


*The programmer will often find it helpful to connect the begin and end by a 
vertical line. This will tend to bring out the program structure but is not' 
by any means essential. It also helps to ensure that an end corresponding 
to a begin is not omitted. 
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15¢ CONDITIONAL STATEMENTS 15* 


Basic statements and compound statements (but not for statements*) 
are classified as unconditional statements (US). There is also a 
conditional statement and this takes one of the following forms: 


if clause 


ic Droas E qu BE thed US i else Si 


if statement 


if dina 
L: 


ee. Ls i£ BE then FS 


T, s» 
u om 


where FS stands for a for statement. 


Examples: 
if x = 0 then y := 1 else y := x - 1 
if Boo then for I :- 1 step 1 until m do n :- n x (n - 1) 


The if clauses and if statement are essential components of the forms 
of conditional statement in which they are marked. The broken parentheses 
around else S following the if statement in the first form indicate that 
this part may be omitted if there is no alternative statement to be 
executed. Thus an if statement alone can always be a conditional statement. 


In the first form the conditional statement is executed as follows: 
if DE has the value true, then US is obeyed and the remainder of the 
conditional statement is ignored; otherwise, if BE has the value false, 
then US is ignored and S is obeyed. If the conditional statement is 
merely a labelled or unlabelled if statement. so that S does not exist 
and also BE happens to have the value false, then the statement produces 
no action beyond that caused by the evaluation of Bi. In the second 
form, if BE has the value true then FS is obeyed; otherwise the state- 
ment again produces no action beyond that caused by the evaluation of Bk. 


Further Examples: 


if abs(1 - 1/lambda)>,,-5 then goto Repeat 


if vou then X : q :- n +m else goto R 
Problems 
(1) Find the final values of all variables whea the following statements 


have been executed. The variables u and W are real and B boolean. 
(Appendix 2 is needed in solving this example). ` 


*In accord with the Revised Report on ALGOL 60, paragraph 4.5.1. 


15° 


(2) 


(3) 
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Conditional Statements (cont.) 15° 


:= 3; 


:= true; 


u 
B 
repeat: W s= u~ 2; 
if uf2 - 1/a>0 and W=-2 then u := 1/u 
el 


se if 5 then goto Z 


else goto end; 


Z B t= false; 
u = Wt 2x u; 


goto repeat; 


end: B i= uW 


Construct a loop to evaluate iteratively a root of the equation, 


using the formula 


anà the starting value x = 3.0. 


Use a conditional statement to exit from the loop when x has been 
determined to four decimal places. Afterwards, write a single for 
statement which will evaluate. the root and follow its action for 
three iterations. 


Write a conditional statement which will cause a jump to four 
different points in a program, labelled P, Q, R and S. Make the 
jumps depend respectively upon two boolean variables, B1 and B2, by 
jumping to P, if both true, to Q if B1 true and B2 false, to 3 if 
B1 false and B2 true and to 3 if both false. When finished check 
that you have no if following & then; this will not be the case if 
the definitions of the present section have been followed. (Refer 
to Appendix 2 if necessary, in solving). 


Making use of a compound statement. write a for statement to evaluate, 
n 
EcL 


y = 


D, 


x" =- 1 


for the first 100 integers n. the value of x being already known. 
Make provision to jump out of the loop whenever x! - 1 is zero. 
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16° SUBSCRIPTED VARIABLES AND ARRAYS 16e 


In computational work it is often necessary to perform the same 
operation on many different sets of data. When this is so, it is very 
convenient to be able to allocate a single name or identifier to groups 
of data and distinguish between individual items by means of subscripts. 
The notation using an identifier with subsoripts, familiar in mathematics, 
is available in ALGOL, where it is known as the notation of subscripted 
variables. 


In the particular form it takes in ALGOL we write the identifier 
common to the variables followed by square brackets enclosing the 
subscripts, for example, 


As the subscripts are varied one obtains the various subscripted variables 
which are said to form the elements of an array. This array has the 
common identifier as its name; in the example above, this is ar. 


The form taken by any subscripted variable may be depicted as follows: 
A [SUB, SUB, ..... SUB] 


Here A stands for the array identifier. SUB stands for a subscript 

which may be any arithmetic expression. If this arithmetic expression 
(AE) is real then the largest integer not greater than AE + 0.5 is taken 
as the value of the subscript (i.e., the nearest integer). The subscripts 
are evaluated in the order of occurrence. 


Examples: 


ABC [1], f [i = al sigma [p +q,4,p- 2] 
Scorpion [x, l; m, n | 


Subscripted variables may be of one of the three types real, integer 
and boolean, but variables corresponding to a single array identifier 
must be of one type only. In the same way as simple (non-subscripted) 
variables are admitted to the class of ALGOL variables, so are 
subscripted variables. It follows that the uses of subscripted variables 
to be described in the following sections are allowed. 


16*1 Use of Subscripted Variables in Expressions 


Expressions involving subscripted variables may be written, 
and at execution time the program will evaluate the expressions 
using the subscripted variables selected according to the current 
values of their subscripts. 


Examples of arithmetic expressions using real and integer 
type subscripted variables as operands follow: 


Mx [a1, a2] 


a[3]xea[k*3] - » [5,2] 


16° 
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Subscripted Variables and Arrays (conte) 16° 


if A>B then X [i x j] else Y [i] 

PQ [1, 2, i£ j—?2 then r else s] 
The following might be boolean expressions using subscripted 
variables: 

Boolean [i, j; k] 

WX [5] —YZ2 [rho] 


16.2 Use of Subscripted Variables in Statements 


The important use of subscripted variables as left part 
variables in assignment statements is allowed. In such a case the 
subscript expressions occurring in any left part variables are 
evaliated before the expression on the right of the assignment. 
When more than one left part variable is subscripted, subscript 
expressions are evaluated in the order of occurrence, i.e., from 
left to right. 


Examples: 


for i :- 1 step 1 until n do 
E [n] :- E [n] + A Li1xS [i]t 


para 1 := arr 1 [i] := arr 2 [1,3] := 


Finally, subscripted variables may &lso be used as controlled 
variables in for statements but special care should be taken when 
the values of the subscripts of the controlled variable are liable 
to be changed during the execution of the for statement. The 
actual mode of operation in such cases accords with the action of 
for list elements defined in Appendix 5. 


Problems 


(1) Calculate the final values of the variables involved in the 
following statements: 


B [1,2] :» B [2, -1] :» V [31:5 2; 
i := 3 x B[2, =1] -2; 
B Ü, i = 2] s= i s= 1; 
V[B[1,2] + B[2, -1]] := B (1, il := 6 -V[ 5] 
(2) Two one-dimensional arrays CAT and DOG each have 15 elements 
with subscripts commencing at 1. Write statements to evaluate 


SC the sum of the squares of the elements of CAT, and SCD the 
sum of the products of corresponding elements of CAT and DOG. 
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17° INPUT AND OUTPUT CF DATA 17° 


The ALGOL language as so far defined provides no means for the initial 
setting of program parameters when these are to vary from job to job, nor 
does it provide means of printing out the results of program operation 
before they are lost. Thus, to produce ALGOL programs of practical value, 
it is necessary to sdd to our stock of statemer.ts and functions forms 
which provide input snd output facilities. 


The ALGOL Report indicates a meens of providing these through ALGOL 
procedures which have bodies written in user-code. (Procedures are 
explained in detail in Section 19). In agreement with this indication 
English Electric-Leo has produced a KDF 9 ALGOL input/output scheme which 
the programmer may use. If, however, he knows the details of how the 
peripheral devices work on KDF 9 at the user-code level, there is nothing 
to prevent the user writing his own scheme, or making additions to the 
English Slectric-Leo system. The compilers work independently of what 
input/output scheme is adopted since the text which defines the scheme 
must be written into the program and is processed just as any normal 
ALGOL text (see Section 19-6). 


The scheme written by English Hlectric-Leo follows. 


17°1 Device Numbers 


Since there are a number of different input and output devices 
on KD? 9, a word is needed avout the way the programzer calls for a 
particular device. The EDF 9 ALGOL statements and functicns 
specified later in Section 17 allow him to write down a device 
nunber which will call a particular kind of device according to the 
ranges given below. 


Input/Output Device Device Number 


Monitor typewriter% 00 
Special input/output devices 01 - 07 
Paper tape punch í8-channel) 10 -= 17 


Paper tape reader (5 or 8-channel) 20 - 27 


Line printer 30 - 3T 
Card reader 40 - 4T 
Paper tape punch (5-channel) 50 =- 57 
Pree 60 - 6T 
Lire printer/Paper tape punch, 

common output i ma = TE 
Magnetie tape | ie E hel 


*The monitor typewriter should be used as little as possible, preferably 
not at all. inis device will be used for purposes other thin any the 
programmer may have. 
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17° Input and Output of Data (cont.) 17° 


Though the programmer has full control ove- the kind of device 
to be called by using a device number in the correct range, the 
computer (via a fixed ccntrol program called the director) in 
collaboration with the operator decides which actual device will be 
chosen for a particular device number. 


17:2 Simple Torms for Reading and Writing Numbers 


The form for reading a decimal number in characters is 
read (DV) 
where DV stands for a device number. 


The identifier read is a function for use within arithmetic 
expressions. It is of type real and has as its value the next 
number on the input device, DV. Any device which is suitable for 
reading may be specified by the device number. Àny arithmetic 
expression is valid as a device number, the nearest integer value 
being used to call the device. 


The number to be read on the input medium must be an ALGOL 
number (see Section 4 for definition) and must be delimited by an 
ALGOL basic symbol which is not a digit, +s -» +» ,9. <A failure 
message will be printed and the program thrown off the machine if 
a number being input as data is non-ALGOL, out of range, or has an 
exponent out of range. The non-ALGOL symbol — (end message symbol, 
'?' for 5-channel working) must appear after the last delimiter of 
any data paper tape. 


oxamples: 
j t= read (21); x := (read (j) + 1)#2 


(The value assizned to J is being used as the device number in the 
second statement). 


The simplest form for writing data to an output device is 


output (DV, AE) 


This is an ALGOL statement. It evaluates the arithmetic expression 
AE, which could of course be & variable, and outputs it to the device, 
DV. The number produced is in standard floating decimsl vith an 11 


place signed mantissa in the range, 1N<10, followed by subscript o 
and a 2 digit signed integer exponent. Each number output by this 
Statement is followed by a semicolon and a new line symbol, so that a 
print-out for more than one such number produces a single column. 


output (12, a-b); output (10, k [tags 


iTe 
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Input and Output of Data (cont.) | 17° 


17*5 Further Input and Output Statements 


The following forms are available for the input and output of 
boolean data, and binary and decimal arrays: 


read boolean (IV) 


This function of type boolean takes the value of the next boolean 
value on the input device, either the symbol true or false. 


write boolean (DV, BE) 


This statement outputs the value of the boolean expression BE as 
either false or true followed respectively by one or two spaces. 


read binary (DV, A, [AN]) 


This statement finds an array with the array name AN on the magnetic 
tape and reads it to the ALGOL array A. The array name must be 
enclosed by the string quote symbols [ and J (square brackets under- 
lined) as shown. g 


write binary (DV, A, [AN]) 


This statement stores the array A on magnetic tape in a form suitable 
for input by the statement read binary and gives it the array name AN. 


read array (DV, A, LAN]) 


This statement reads from paper tape an array headed by the array 
name AN and certain other information. (See reference given at end 
of Section 1T). 


write array (DV, FE, DM, A, [AN]) 


This statement outputs the array A with preliminary information 
including the array name AN. The format expression FE specifies 

the layout of the elements of the array according to rules explained 
in Sections 17:4 and 17-5. DM stands for the number of dimensions 
of the array which must be specified. The elements of the array are 
listed so that the earlier subscripts change faster. 


The use of a format expression in another most important state- 
ment allows a fine control over the output of simple decimal numbers. 
This statement is 


write (DV, FE, AE) 


which, like output (DV, AE) above, outputs the value of the arithmetic 
expression AE on the device DV. The format expression FE denotes an 
argument of type integer and provides the number of a layout which 
itself specifies the particular field and format required in output. 
The form and meaning of the layout and format expression are explained 
in the next two sections. 
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17° Input and Output of Data (cont. ) 17° 


Examples: 


write (12, format ([ -ddd.a]), x x (xf2-1)); 
write (11, f1, a x bt(k + 1)) 


17:4 The Layout 


The layout provides a picture of the number which is to be 
printed. It shows where digits, zeros, spaces, sign, decimal 
point, and, in the case of a floating number, the exponent are to 
be printed in the output field. It may also call for a new line or 
new page on the output medium or print à semicolon to separate one 
number from the next. This makes the write statement very versatile. 


We shall now proceed through the various facilities in more 
detail, showing how the layout is constructed. 


(1) Digits Wherever a digit is required in the output field we 
put a letter d in the corresponding position in the layout. 
The letter n may be used in the first digit position in which 
case if the number is too small to fill the digit layout, zeros 
on the left are suppressed. Zeros in the units position and 
to the right of the decimal point are never suppressed. 


(2) Decimal Point The decimal point is inserted in the appropriate 
position, when required. 


(3) Sign The sign + inserted before all d's and the decimal point 
will ensure that either + or - appears in the result as 
appropriate. When n appears in the layout and zeros on the 
left are suppressed, the sign is moved to the right. 


The sign - inserted in the layout has the same effect as 
+ except that a space is inserted instead of + for positive 
numbers. 


The symbol # causes a sign (either + or -) to be printed 
but always in the position specified. 


Finally, if there is no sign in the layout, no sign is printed. 


(4) Spaces The letter s inserted in the layout causes a blank 
Space to be printed in the corresponding position. A maximum 
of 15 spaces are allowed in front of the sign, and these 
initial spaces may be abbreviated by inserting a single s 
preceded by the number required. They are still available 
when no sign is present in which case up to the first 15 spaces 
are counted as initial spaces. 


(5) Zeros Zeros may be inserted at the end of a decimal layout 
one having no exponent). These allow the printing field to 
float keeping the number of significant figures specified by 

n and d. 
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input and Output of Data (cont.) 17° 


(6) Exponent A floating point number in ALGOL form will be 
output if the layout includes a mantissa and an exponent. 
The mantissa should be of the form "d." followed by & fractional 
part containing only d's and s's. The exponent immediately 
following the mantissa should be of the form "o * followed by 
a sign, followed by "nd". The sign used in the exponent may 
take any of the three forms mentioned above and has & similar 
effect. Any symbol in the layout following the exponent must 
be a terminator. 


(7) Terminators When required the layout may be concluded by one 
of the following symbols which have the effect specified. 


; A semicolon is output in the position specified. 
c <A carriage return line feed is output. 


.p A page change is output on a line printer and page 
shift on a paper tape punch. 


The following nine combinations of terminators are allowed: 
; c p ce ccc 3p 3c ;cc jccc 


Examples of layouts: 
sndd.ddds000s 
7séndad . 
-d.dddd,,Hnd; 


sss+dd.dsccc 


17°5 The Format Expression 


The format expression provides a means of calling a particular 
layout. Using & function called format it is possible to associate 
an integer with the layout. Thus, using LAY to stand for a layout, 

format ([LAY ]) 
will provide the integer corresponding to LAY. 
This integer may be used as a format expression parameter in the 
statement, 
write (DV, FE, AE). 


The string quote symbols [and ]which enclose the layout are 
essential. 


Example: 


write (30, format ([+sddd.ddds;c]), A[j + 4]). 


17> 
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Input and Output of Data (cont.) . 1T* 


Whenever the same layout is to be used to output more than one 
number it is advantageous to assign the integer value produced by 
the function format to an integer variable, and use the variable as 
the format expression. 


Example: 


F :- format ([nadae]); 
for i :- 1 step 1 until n do write (30, F, List [i]) 


17:6 Input end Output of Text 


There are two statements dealing with the input and output of 
text. 


write text (DV, ST) 


This statement outputs the text written as ALGOL basic symbols in 
the string ST. (For explanation of Strings see Appendix 6). The 
String contains the text for output enclosed by string quotes 

C and ]. Editing symbols c, p and s preceded if desired by an 
integer and enclosed by additional quotes may be inserted in the 
string to produce the effect of carriage return line feed, page 
change, and space, respectively. The integer before one of these 
letters specifies the number of such symbols to be output. 
Alternatively for space, one or more asterisks may be inserted in 
the text without additional quotes. 


Examples: 


write text (12, [p ] Result [c7s ] x*-**]) 
write text (15,[[5c48]]) 


copy text (DV, DV, ST) 


This statement copies ALGOL basic symbols from the input device 
specified by the first parameter, to the output device defined by 
the second parameter. The third parameter consists of either one 
or two basic symbols in string quotes: for one basic symbol copying 
continues from the actual starting position of input to the first 
occurrence of this symbol; for two symbols, copying starts 
immediately after the occurrence of the first symbol and ceases on 
occurrence of the second. The basic symbols inserted in the third 
parameter are not themselves copied. 


Example: 


copy text (20, 12, [ 55 ]) 
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Input and Output of Data (cont. ) 417° 


Initialisation and Closure of Devices 


Certain statements are required in order to allocate and de- 
allocate actual devices corresponding to those called by the ALGOL 
programmer and inform the operator of the choice for purposes of 
loading and unloading tape reels, etc. These statements are as 
follows: 


open (DV) 


This statement must precede the first use of a device DV and auto- 
matically produces on that device the effect of carriage return 

line feed followed by case normal. It applies to all devices save 
the monitor typewriter and magnetic tape decks. The monitor type- 
writer requires no initialisation by the ALGOL program, while 
magnetic tapes are initialised by the find statement to be described 
next. 


Example: 
open (22) 
find (DV, ST) 


This statement will look at all tapes loaded and find the tape with 
the label referred to in the string ST. The corresponding deck is 
allocated as the device with number DV. The string may enclose in 
quotes [ and ] either the number of a device from which a tape label 
may be read within string quotes, or the tape label itself. 


E 


Examples: 
find (103, [ KDSGR562]) 
find (100, [21]) 
"hen a device has been initialised the operator is informed of 
the device number allocated, and & standard format is automatically 


output, including program identification and blanks and leaving the 
device at the beginning of a line ready for the programmer's output. 


close (DV) 


This statement closes device DV and should be applied to all 
initialised devices before the program ends. After closure a 
device must be re-initialised by an open or find statement before 
use again. Closing a device early helps to reduce buffer storage. 
The close statement has no application to the monitor typewriter. 


Manipulation of Magnetic Tapes 


Various statements for the manipulation of magnetic tapes are 
available or under consideration. Amongst these there is 


interchange (DV) 
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17° Input and Output of Data (cont.) 17° 


This statement is used to change a magnetic tape deck from a reading 
to a writing mode, and vice versa. In changing from read to write, 
writing will start after the last block read. In changing from 
write to read, the incomplete buffer is output and the tape rewound 
to the first block of data. 


skip (DV, N) 


This statement skips N binary arrays on the magnetic tape corresponding 
to device number DV. 


17°9 Restrictions 


Apart from the restriction limiting initial spaces in a layout 
to 15 as already mentioned, a total of 23 n's, d's, zeros and s's are 
allowed from the close of initial spaces to a subscript ,, (or the 
close of the layout if there is no exponent). The layout should not 
allow more than 12 significant digits (n and d) in output. 


Up to 120 positions maximum will be available per printing line 
in output on the paper tape punch, line printer and magnetic tape. 
For cards the full field of 80 characters will probably be available 
when using the punch. 


If a number does not fit the layout an alarm printing occurs. 
This means that it appears on & fresh line to the standard layout: 


fd. ddddsddddsddds,, nd; c 


Each alarm printing will be preceded by an asterisk and as the 
layout shows will end with a semicolon. An alarm printing will 
not disturb the overall layout. 


Details of other facilities in this input/output scheme’ will 
be found in a KDF 9 Library Service note - ALGOL Note 2. It is 
expected that other ALGOL Notes describing new input/output 
procedures will be issued from time to time. 


Problems 


(1) Write a for statement which reads ten numbers from paper tape 
and sums their squares. 


2) Assign a format expression to the integer variable f and use 
g inveger 
it in & for statement which reads 100 numbers and outputs their 
cubes to the format ddd.dd in & single column on & paper tape 
punch. 


(3) Write an output statement which will print on a line printer 
the heading - 


Co-ordinates of the Parabola, y42 = 4x. 
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17° Input and Output of Data (conte) 17° 


(4) 


(5) 


(6) 


Write statements to produce.on a line printer the positive co- 
ordinates of the parabola y? - 4x in two parallel columns with 
headings x and ye The abscissa x should take the values 0(0.01)5. 


Write & piece of program to read N integers (each less than 106) 
from reader 20, and print them out in & column with their prime 
factors in & parallel column on punch 10. Restrict the 
search to the factors two and three only. When both occur, 
list them with a semicolon as separator (thus, 253). Allow 
three spaces to separate the two columns. 


Write statements which will output the diagonal elements of a 
22 x 22 array called BRUTE, elements commencing BRUTE [1,1], 
on the paper tape punch 11. Make the output appear five 
elements per line in columns each separated by five spaces. 
Use a floating decimal point allowing eight significant digits 
in the mantissa. 
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18- DECLARATIONS BLOCKS AND PROGRAMS. 18> 


Having considered most of the forms of statement allowed in an ALGOL 
program, we shall now consider how the statements ought to be arranged 
and what means exist for cementing them together to form a complete 
program. This should put the reader in a position to write simple 
programs. 


18°1 Declaration of Simple Variables 


We come first to the idea of the declaration. This may have 
been entirely new to the reader when he read of it in Section 2. 
The declaration is the programmer's means of conveying information 
to the ALGOL translator about the kind of quantities represented by 
the identifiers used in the program. This makes it possible for 
the translator to treat each identifier in the way most appropriate 
to its kind in allocating storage and using arithmetic routines. 


The rules associated with the declaration are as follows: 


(1) All identifiers having an operational significance except those 
representing labels and standard functions must be declared.* 


(2) For simple variables the declaration consists of a basic symbol 
denoting the type of the variable (real, integer or boolean), 
followed by a list of simple variables separated by commas. 

A declaration for such variables will look like 


T V, V, 0000292 V 


where T stands for & type symbol and V for a variable. Each 
variable listed after a given type symbol is of that type. For 
variables of & different type, different declarations must be 
made using the appropriate type symbols. The order chosen in 
writing more than one type declaration or in listing variables 
is immaterial. 


(3) A declaration must be placed at the head of the block to which 
it is intended to apply. (Blocks are considered in Section 18.5). 


As already mentioned in discussing types of numbers in Section 4 
type real denotes real quantities which are to be treated in floating 
point. Type integer quantities are treated using fixed point integer 
arithmetic. 


In addition to the type symbol appearing at. the head of a simple 
variable declaration the symbol own may appear. The meaning and use 
of this symbol is explained in Appendix 4. 


*This rule includes the identifiers used for input/output statements and 
functions which must all have procedure declarations. For the purposes 
of the present chapter and the problems appearing at the end, these 
declarations are omitted. They will in practice be obtained automatically 


from the ALGOL procedure library in accordance with the rules explained in 
Section 19°7. 


18- 


18°2 
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Declarations, Blocks and Programs (conte) 18° 


One or two other basic symbols are used in declarations in order 
to specify such things as arrays, switches, and procedures. The 
declaration of ALGOL procedures will be considered when we come to 
discuss procedures in Section 19. Switch declarations are discussed 
in Section 21, while array declarations are considered in the following 
section. 


Examples of Simple Variable Declarations: 


integer i, j 
real alpha, P, stress, radius 
boolean STABLE, B1, B2, B3 


Array Declarations 


Just as a simple variable must be defined before its use, so 
before using a subscripted variable the array to which it belongs 
must be defined. This is done by means of an array declaration 
which appears along with other declarations in the head of an 
appropriate block. The object of the array declaration, besides 
noting the existence of the array, indicates the type of its elements, 
whether real, integer or boolean. It also limits its size by noting © 
upper and lower bounds on the subscripts. 


The form of an array declaration and its correspondence to a 
subscripted variable may be shown as follows: 


Array declaration 
Bound pair list 
Bound pair 


(8 


iT! array AÇIB : uB ., 18: UB pesso, IB s UB] 


one to one 
Subscripted variable correspondence 
A[ SUB , SUB gececey SUB] 
T stands for type and may be real, integer or boolean. If no type 
symbol appears in the declaration then the elements of the array are 


understood to be of type real. array is a declarator in the list 
of basic symbols. 


A stands for the array identifier. 

LB stands for lower bound and UB for upper bound. 

SUB stands for subscript. 

By means of bracketing the diagram also defines the meaning of 


& bound pair and a bound pair list. The following notes on the 
bound pair list are important. 
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(1) The bounds may be arithmetic expressions and are evaluated in 
the same way as subscript expressions. Thus if the arithmetic 
expression (AE) is real then the value of the subscript is 
taken as entier (AE + 0.5). (See Section 9 for the standard 
function entier). 


(2) The bound pairs give the bounds of corresponding subscripts and 
a subscripted variable is only defined if its subscripts lie 
Within these bounds. An array is not defined if a lower bound 
is greater in value than its upper bound. 


(3) The order of evaluation of the bound pairs is from left to 
right. 


(4) The bound pairs are evaluated every time control reaches the 
array declaration and only the current values of these bounds 
are valid in considering the legitimacy of some subscripted 
variable (See Note 2). 


(5) A bound pair expression may only depend on variables and 
functions which are declared in a block enclosing the block 
for which the array declaration is valid. Note (5) should be 
understood more clearly after reading Section 18°3. A more 
thorough explanation of the point will be found in Section 22-2. 


Examples of array declarations: 


array AB[1:10, 1:10, 1:3] 
real array Mi[ ptn : qy prm : r] 
integer array ARRAY [1 : if i = O then n else 2 x n] 


The form of the array declaration defined above is not as general 
as it could be. In fact it may be extended so that any number of 
array declarations may be strung together and repetition of similar 
information eliminated. Thus, after the symbol array a list of 
identifiers may appear, followed by & bound pair list enclosed in the 
usual square brackets. Each of the identifiers is thereby declared 
as representing an array of the same type as all the others in the 
list and having the same number of dimensions and the same upper and 
lower bounds on its subscripts. Other arrays of the same type but 
having different dimensions and/or bounds may be declared by adding 
them on to the above declaration and following. them with the new 
bound pair list. 


Apart from the appearance of own for which see Appendix 4, the 
general form for an array declaration may be depicted as follows: 


^ 


(T! array A, Ay oo. A[BPL], Ay Aj... A[BPL], ...A, As... AL BPL] 


BPL stands for bound pair list. 
Further examples of array declarations: 
array A, B, C[1:1, ism, isn] 
boolean array b1[0:20], b2, b3[-10:nf2, -5:n x m -1] 
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18°3 Blocks 


A block of ALGOL program is constructed in the same form as a 
compound statement but with the essential addition of at least one 
declaration. The form of a block may be represented thus: 


Block head 
Li: Ls cosvool 2 egin D ; D ; e DG SH 3 5S 3 eese) end 


where L stands for a label, D for a declaration and 5 for a statement. 
Note that the declarations are all followed by & semicolon. A 

declaration appearing in the block head only applies for the correspond- 
ing block. A block need not be labelled. 


An important use of blocks is provided by the following complete 
definition of the unconditional statement. 


basic statements 
Unconditional statements include compound statements 
blocks 


The inclusion of blocks as unconditional statements means that 
blocks may be used within for statements (Section 13), compound 
statements (Section 14), conditional statements (Section 15) and 
also within other blocks. 


Examples: 


(1) The two simple programs given in Section 2 are both blocks. 
We reproduce one of them here in an abbreviated form. 
begin real x, yy Z; 
open (20); 
x:- read (20); 


‘end 
There is one declaration in the head of this block, namely 
real x» yy 2 


and the reader will notice that it is correctly followed by 
& semicolon. 


(2) Insert appropriate declarations and begin and end brackets to 
make the statements of the problem in Section 12:2 into a block: 


18- 
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begin real p, q, SUM; 
integer n; 


n ss 1; 
p: t= 0.55 
SUM := O 
q t= 4; 


loop : SUM := SUM + q/n; 


q $= 4X Pi 
n ¿= n+ 1; 


goto loop 


Problems 


Insert appropriate declarations and begin and end brackets to 
make the statements of the following problems appearing earlier in 
this manual into blocks. 


(1) Prob. (1) Section 11. 
(2) Prob. (3) Section 11. 


Definition of & Program 


A program is officially defined as a block or compound statement 
which is not contained within another statement and which makes no 
use of other statements not contained within it. Normally, a 
program will have identifiers declared at its beginning, so that it 
will be most naturally constructed as a block. 


The reader will appreciate that the uses of blocks mentioned in 
the previous section allow a complicated program structure involving 
blocks within blocks. Since there are certain rather complex rules 
associated with the use of identifiers when inner blocks exist, it 
will be advisable for the beginner to restrict his programs to those 
containing one block with all declarations made in its block head. 
Section 22 will explain the restrictions on the use of identifiers 
when & complex block structure is used, and the value in some 
circumstances of such a structure. 


Example: 
Write a program to solve the equations ax + by = c, Ax + By = C 


for n sets of coefficients a, b, c, A, D and C with a provision for 
failure when aB - bA is small or zero. 
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begin real ay b. c, A, B, C; 

integer n, i. f1, f2; 

open (20); n := read (20); 

f1 :- format ([àà ]); £2 :- format ([-d.ddd,-nd]); open (10); 

for i :- 1 step 1 until n do 

begi a := read (20); b := read (20); c := read (20); 
A := read (20); B := read (20); C := read (20); 
write (10, f1, i); 
if abs(a x B - b x A)< „7 x abs(a x B + b x A) 


then write text (10, [Equations*not*sufficiently 
*independent [ 2c]]) 
else begin write text (10,[x*-*]); 
write (10, f2, (Bxc- b.x C)/ 
(ax B-b»x8A)) 
write text (10,[99 9 yX*]; 
write (10, f2, (Cx a - Ax c)/ 
(ax B-bx4A)); 
write text (10,[[2c]]) 


end 


end : 
close (10); close (20) 


end 


Problems 


(1) Convert the solutions of Problems (1) and (2) of Section 17-9 
into complete programs. 


(2) Use the solutions to Problems (5) and (4) of Section 17*9 to 
produce a single program. 


(3) Write a program to evaluate the expressions 


exp(x/f2) cos/ x+7\ and exp(x/V2) sin/ x-% 
A/2xx M2 8 A/?xx A/2 ;) 


for x = 0.1(0.1)10. Print the results correct to six 
significant figures in two parallel columns. 


(4) Write & program which reads an integer n followed by n real 
numbers and sums all the rt numbers, whenever r is & perfect 
Square. 
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(5) Write a program to group n integers between O and 99 into classes 
O = 9, 10 = 19, .... 90 - 99, and print out the number of 
integers in each class. 

(6) Write & program to find the first n positive roots of 

x tanx = a 


with an error less than e. Use the iterative relation 


-1 
2 3 tan (a/x,,) 


to improve an approximate root x,. For the first root take 
0.5x is an initial guess. For the second root take x plus 
the first root and so on. 


(7) Write a program to find the area of a triangle given the length 


of the sides as data. Use Ldd.dddd] as the layout of digits 
for output. 


A = S5(s-a)(s-)(s-c); s = (a + b * c), where a, 


b, and c are the lengths of the sides. 
(8) Tabulate the binomial coefficients "C, r = O(1)n, for given n. 


Note Ny = n=-1)(n =- 2) oo. (n-r * 1 | 
T ia 2e 3 sss. r 
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19*1 The Purpose and Application of Procedures 


ALGOL provides & facility similar to that of the subroutine in 
a machine-coded program. This facility is known as the procedure. 
It enables the programmer to use a single piece of program in a 
number of places in his program or even in different programs without 
having to rewrite it on each occasion to suit new parameters. To 
each procedure there is attached an identifier and each occurrence of 
this identifier within some ALGOL statement initiates a call of the 
procedure concerned. 


As an example the programmer may decide to have a procedure 
which provides the tangent of an angle. He associates with this 
procedure the identifier TAN, and on any occasion when he desires 
the tangent to be evaluated, he merely writes down the procedure 
identifier together with the angle in which he is interested. 
Suppose the angle were x, then writing 


TAN (x) 


would give him the tangent of the angle x. He might decide to use 
this in an arithmetic expression such as 


(2 x TAN(x) + 1)/(TAN(x) - 1) 


The use of a procedure like TAN obviously implies some means of 
defining its action. The means available is the procedure declaration. 
This declaration contains a body in which the operation of the 
procedure is defined (usually by means of ALGOL statements). It 
also has & heading in which the procedure identifier may be associated 
with a set of parameters, known as formal parameters. When the 
procedure is to be called, the programmer inserts the actual parameters 
upon which the procedure is required to operate instead of the formal 
parameters to which they correspond. At the time of executing this 
call the procedure body is entered and obeyed. 


In different calls, different sets of actual parameters may be 
used. In the example mentioned above the procedure TAN might be 
declared as TAN(z), where z is a formal parameter. The call of this 
procedure mentioned earlier uses x as an actual parameter to correspond 
to Z, but on some other occasion a different actual parameter might be 
used and the programmer might call for TAN(y), or even TAN(x x "is 

There are two ways of using procedures.  TAN(z) above is being 
used to provide function designators TAN(x) and TAN(x x y) which 
supply values through the procedure identifier for use in the 
expressions in which they occur. It is also possible to call 
procedures by procedure statements which are used in a manner 
Similar to other ALGOL statements. In this case, though information 
may be supplied to the program via the parameters, a value is not 
supplied through the procedure identifier. 


19° 
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Procedure Declarations and Corresponding Calls 


As already suggested, the declaration of an ALGOL procedure 
specifies its action. This declaration is inserted in the block 
head to which it applies in the same way as any other kind of 
declaration. Figure 2 shows the form taken by a procedure declar- 
ation, and also included is the procedure statement or function 
designator to show the correspondence between the declaration and 
the call. 


In this diagram P stands for a procedure identifier, AP for an 
actual parameter and FP for a formal parameter. T stands for a type 
symbol placed before the ALGOL symbol, procedure, the broken 
parentheses indicating that it is not always required. When the 
procedure defines the value of a function designator, the type 
symbol must be included in the declaration and specifies the type 
of this value. 


In the procedure declaration the basic symbol procedure is 
followed by the procedure heading which includes the procedure 
identifier, formal parameter part, value part and specification 
parte The procedure heading is followed by a procedure body. 


The formal parameter part consists of a formal parameter list 
enclosed in parentheses. The formal parameter list in turn consists 
of one or more formal parameters separated by parameter delimiters. 
The actual parameter part, actual parameter list and actual parameters 
in the procedure call are analogous. In both cases the parameter 
delimiters may be commas as in Figure 2 or they may take the form: 


) Ls : ( 


where LS stands for a letter string. This enables the programmer 
to include an indication of the meaning of parameters in the formal 
parameter list. i 


A formal parameter is simply an ALGOL identifier, while an 
actual parameter which corresponds. to it might be an arithmetic, 
boolean or designational expression, or an array, procedure or 
switch identifier or a string (see Section 19°5). The correspondence 
of formal and actual parameters shown in Figure 2 means that there 
must be the same number of actual parameters in a call as formal 
parameters in the declaration. Taking the parameters in order 
there must also be a compatibility in kind and type. The specification 
part of the procedure declaration mentioned in Figure 2 defines the 
kind and type of formal parameters and is described in Section 19°5. 


Information concerning the way actual parameters are to be 
treated is provided by the value part of the declaration. This is 
described in Section 194. 


The value and specification parts complete the procedure heading 
in the declaration and are followed by & procedure body. This 
commonly contains a number of ALGOL statements within which the 
formal parameters appear, being used as variable identifiers, array 
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identifiers, etc. At each execution of the procedure certain 
changes associated with the parameters are made and these statements 
are then obeyed. 


Here is an example of a program which contains a procedure 
declaration and a call of that procedure by a procedure statement. 
begin real a, b, D; 
procedure EXAMPLE (x, y) Result: (R); 
value x, y; 


real x, yy R; 


Procedure 
begin Declaration 
x:i-Xx-4yj 
R := x12 + yf2 
end ; 
a :2 1; 
p t= 23 
EXAMPLE (a, a+b, D); Call 


write (30, format ([d.dddd +na]), D) 


end 


The procedure declaration of EXAMPLE uses the three formal parameters 
X, y and R. The procedure statement supplies the actual parameters 
a, atb and D to corresponde In this example the body of the 
procedure consists of a compound statement containing two assignment 
statements. 


19°3 Declaration of Procedures Defining a Function Designator 


For a procedure to be used as a function designator, the 
procedure body appearing in the declaration must contain one or more 
statements which assign a value to the procedure identifier. At 
program run time at least one of these assignments must be executed 
per call of the procedure. The value held by the procedure identifier 
on exit from the procedure body is used as the value of the function 
designator in evaluating the expression in which this function 
designator occurs. A procedure which is to be used as a function 
designator must always have a type symbol (T in Figure 2) appearing 
at the commencement of the procedure declaration as already mentioned. 
This declares the type of the values taken by the function designator, 
whether real, integer or boolean. 


The following is a declaration of a procedure for use as a 
function designator: 


64 


19° Procedures (cont. ) 19° 


real procedure  TAN(z); 
value z; real z; 
if abs(z)>1-570796326 then goto Failure 
else TAN := sin(z)/cos(z) 


In this procedure abs, sin and cos are the identifiers of standard 
functions; while Failure is a label in the main program. 


19:4 The Value Part 


The value part of the procedure heading, which immediately 
follows the semicolon after the formal parameter part takes the 
following forms 


value FP, FP yccccccccl Ps 


A formal parameter appearing in the formal parameter list may or may 
not appear in the list following the basic symbol value. If it does 
appear then the formal parameter is said to be called by value 

otherwise it is said to be called by name. If no parameters are to 
be called by value, then the value part will be empty. i 


The difference between the call by value and call by name lies 
in the different ways the parameters are treated on entry to and 
execution of the procedure at the time control reaches the procedure 
call. The beginner sometimes finds considerable difficulty in under- 
standing these different treatments. To help him it is suggested 
that he take some examples and carefully work through them executing 
exactly the operations specified in the next two paragraphs. One 
example is given in the text following these two paragraphs and the 
reader may construct others for himself. 


Call by Value 


When formal parameters are called by value, the corresponding 
actual parameters are evaluated and assigned as initial values to 
the formal parameters before entry to the procedure body occurs. 
After entry to the procedure body operations are performed upon the 
formal parameters &s specified by the ALGOL text. 


Call by Name 


Before entry to the procedure body formal parameters called by 
name are replaced in the text of the body by the corresponding actual 
parameters. Parentheses are placed around these actual parameters 
whenever possible. After entry to the procedure body operations are 
performed upon the actual parameters using the revised text. This 
may occasion the evaluation of the actual parameters at any time 
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during the execution of the procedure body .* 


That there is a real difference between calling by value and 
name can be illustrated by the program at the end of Section 19°2. 
In this program the procedure EXAMPLE has two of its formal 
parameters appearing in the value part, thus: 


value x, y; 


The procedure is called once by the statement EXAMPLE (a, atb, D) 
with the variables a and b currently holding the values 1 and 2 
respectively. We work out below the effect of the procedure call 
(a) when the procedure declaration is altered by making the value 
part blank, so that all formal parameters are called by name, and 
(b) when the value part stands as in the program above, so that 
Some parameters are called by value. 


(a) All formal parameters called by name 


Formal parameters called by name are replaced by the 
actual parameters in the text. The two statements in the 
procedure body therefore become i 

a := (a) + (a + b); 
D :- (a)f2 + (a + v)f2 


The procedure body is now executed with the following effect 
upon the variables. 


a b D x y R 


Initially 


On entering procedure body 


After first statement 


After second statement 


(b) Formal parameters x and y called by value, R called by name 


In this case, the second statement only is modified and 
that because R is called by name. We have, 


X = xX + y3 


xl2 + yte 


tl 


*When a duplicate use of identifiers has been made, such as will be 
described in Section 22, confusion between identifiers inserted via 
formal parameters called by name and the same identifiers already 
occurring within the procedure with other meanings is automatically 
avoided by a systematic change of identifiers involved. 
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Before entry to the procedure body the actual parameters a and 
(a + b) are evaluated and their values assigned to x and y. 
The procedure body is now executed with the following effect 
upon the variables. 

& b D x y R 


Initially 


On entering procedure body 


After first statement 


After second statement 


From the above example it will be seen that, when called by 
name, formal parameters are dummies, i.e., no values are actually 
assigned to them. In fact they are truly formal. Mhen called by 
value they serve the purpose of working variables local to the 
procedure, while the variables used in the corresponding ectval 
parameters remain unchanged, (unless the procedure body as appearing 
in the declaration explicitly assigns to them). 


Sometimes the kind of call of a formal parameter, whether by 
value or name, has no effect upon the final result of a procedure. 
Thus, as the reader may check for himself in the example quoted above, 
when we have x called by value and R by name, whether y is called by 
value or name makes no difference to the final values of the program 
variables a, b and D. For the sake of efficiency of translation it 
is recommended that call by value be specified whenever possible. 


Note that R cannot be called by value in the above example 
because an assignment of the value of D to R would be involved on 
entering the procedure and at this time D has no value. Note 
also that the insertion of parentheses around actual parameters 
called by name can be essential. Thus a different result would be 
obtained in (a) above, if the a + b were not so enclosed in the 
statement assigning to D. 


19*5 The Specification Part 


The specification part of the procedure heading is very like 
the declaration list which occurs in the head of a block. It gives 
information about the kinds and types of the formal paraneters used 
in the procedure. In KDF 9 ALGOL all formal parameters must be 
included in the specification part with full specification. (This 
is not essential in ALGOL 60). The specification part appears in 
the form: 


Specifier FP, .... FP; 
Specifier FP, .... FP; 


Speci?ier FP, .... FP; 
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where a specifier may be any of those listed in the following table 
(T stands for a type symbol). 
Specifier Corresponding Actual Parameter 


T arithmetic or boolean expression 
array. array identifier 
procedure | procedure identifier 


label designational expression 


switch switch identifier 


string string 


Like the value part, the specification part closes with a semicolon. 


The use of parameters, specified merely by a type symbol should 
be clear; the use of parameters specified by most of the other 
symbols in the above list is explained in some detail in Section 23 
on the Advanced Use of Procedures; while an explanation of the 
general use of strings and the symbol string appears in Appendix 6. 


In addition ALGOL only allows an actual parameter to be of a 
kind and type which is 'compatible' with those of the corresponding 
formal parameter. For example, a formal parameter which occurs as 
a left part variable in an assignment statement and is called by 
name can only correspond to an actual parameter which is a variable.* 
It is recommended as good programming practice that the types of 
formal parameters called by name and the corresponding actual 
parameters be not merely 'compatible' but the same. 


An example of a specification part was provided by the 
declaration of the procedure EXAMPLE in Section 193. Thus: 


real x, y, R; 


The specification part for another procedure might be: 
integer i, j; 
real X, Y; real array K1; 


integer procedure IT; 
procedure P, Q; 


19.6 The Procedure Body 


The procedure body which follows the procedure heading may be any 
ALGOL statement. In practice it is usually also an ALGOL block. of 
course, this definition allows the procedure body to include whole 
pieces of program containing many statements. 


*KDF 9 ALGOL has a further restriction of a similar kind, for which see 
Restriction (3) on page 1 in the Introduction. 
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Means are also available for the programmer to write the 
procedure body in KDF 9 machine code, if he so wishes, and Appendix 
explains how to do this. 


It was explained in Section 19*4 that the procedure identifier 
could occur within its own body on the left of an assignment and 
that such procedures could be used to define function designators. 
It is also possible for the procedure identifier to be used in some 
other way within its procedure body, such as in an expression. 

If this is so, its occurrence signifies a new call of the procedure. 
Though such applications receive some discussion in Section 23°5, 
they are to be avoided by the inexperienced ALGOL programmer. 


19-7 The ALGOL Procedure Library 


The ability to use & procedure on & number of different 
occasions makes this ALGOL construction extremely useful. There 
are some procedures such as those for input and output, which are 
of such general application and required so often that it has been 
decided to include them in an ALGOL procedure library. This 
library saves the programmer having to write out the declarations 
of these common procedures each time he needs them. It includes 
pieces of ALGOL text as well as single procedures and is stored 
on magnetic tape. 


Wherever an insertion in & program is required the symbol 
library must appear followed by a list of unsigned integers 
specifying the particular portions of ALGOL text to be inserted, 
see for example the program in Appendix 1. A preliminary run in 
the KDF 9 ALGOL operating system assembles the program to form a 
complete text ready for processing by one of the compilers. 


Contributions to the library will be published from time to 
time after thorough test. 
Problems 
(1) Trace the various parts of the procedure declaration for erfc 
i given in the specimen program of Appendix 1. Ignore the 
commentary which will be explained in Section 20. 
(2) What is the value of the function designator, 
AP(1, 3, 5) 


if its procedure declaration is as follows? 
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real procedure AP(a, d, n); value ay d, n; 


real a, d; integer n; 
begin integer i; real t; 


t := 0; 
for i := 1 step 1 until n do 
begin 
t := t + a; 
a:=a+d 
end 3 
AP s= t 


end 


(3) Assuming the above procedure declaration but with a and d 
omitted from the value list, what would be the final values of 
the variables on exit from the last of the following statements? 
The variables p, q, r, and s are real. 


(4) (4) 


(ii) 


p:--1; q:-2; r:55; 
s := AP(q, - (p + qtr) x p, 2); 


Write a procedure declaration which defines a function 
designator Jo(x) based upon the series 


x xt x 


+ = —— COP wem 
2 


22.4? 22,42. 6? 


J409 =i- 


ie) 


Use this procedure declaration in a program which evaluates 
the expression 


CS) + J, A ol 


for x = 0(0.1)1. 
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20° COMMENT CONVENTIONS 20. 


If the reader has studied the specimen program of Appendix 1, he 
will have noticed the occurrence of commentary. This is & convenient 
feature of ALGOL. By its means the programmer is able to record 
information which may help other users of his program or even himself at 
some later date when his memory of the program is dimmed. 


The rule governing the use of comment is:- 


Any sequence of basic symbols is ignored while the program is being 
executed and may be used as commentary if it belongs to one of the 
following categories. 


(i) Sequences following ";" or "begin" which commence with "comment" 
and are closed by ";", but do not contain ";". 


(ii) Sequences following "end" and not containing "end", ";" or 
"else". 


Example: 


begin comment A program to illustrate the use of comments; 
integer i; real x; 
comment start program begin for i :- 1 step 1 until 
10 do calculation end; 


for i :- 1 step 1 until 10 do 
begin if i = 5 
then begin x := i x (i +1); 


x :- xÎx 


end the Special Case 


else begin x :- i x(i- 1); 
x :5 xf(x + 1) 


end if i £ 5 then Normal Case 


end 


end program 


T2 


20° Comment Conventions (cont.) 
When all commentary has been eradicated this example appears as 
follows: 


begin integer i; real x; 
for i := 1 step 1 until 10 do 
begin if i=5 


then begin x := ix (i +1); 
x :5 xÍx 


end 


else begin x :=i x(i-1); 
:= xl(x + 1) 


ra 


end 


end 


end 
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Sometimes a programmer may wish to jump from a point in his program 
to one of a number of others depending on the value of some variable or 
expression. In common programming parlance he wishes to use a multiple 
branch or switch. Although it is possible to do this in ALGOL by means 
of conditional statements, they become long-winded for a many-branched 
switch. A much simpler facility is provided. The programmer writes 
down what is called & switch designator in place of & label in his goto 
Statement. This looks precisely like & one-dimensional subscripted 
variable. 


Example: goto EXIT [n] 

The declaration of the switch identifier, however, looks very 
different from that of an array. It will usually contain a list of 
labels, and depending on the value of the subscript of the switch 
designator one of these labels is chosen for action in the goto statement. 
Before defining the form of a switch declaration precisely let us generalise 
the use of labels and switch designators in the goto statement. 


A goto statement may take the form: 
goto DE 
where DE stands for a designational expression. 

A designational expression is a rule for finding a label. Ina 
manner analogous to the arithmetic expression it is defined as being 
either ' 

a simple designational expression (SDB) 
or of the form | 

if BE then SDE else DE 

A simple designational expression is one of the following: 


a label, 
a switch designator, 


or a designational expression enclosed in parentheses. 
Further Examples of Goto Statements using Designational Expressions: 


goto if a<b then FAIL else CONTINUE 
goto S[3 + (if x—0 then p else q)] 


We may now define the forms allowed for a switch declaration and its 
corresponding switch designator. These are shown below. 
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Switch Declaration 
Switch List 


switch SW: = DE, DE, 97229 D 


Switch Designator 
sw [suB_] 
where SW stands for a switch identifier. 


The following is a possible declaration corresponding to the switch 
designator EXT’ [n] 


switch EXIT :- L1, L2, FAIL[ m] 


The evaluation of the switch designator EXIT [n] at run time would 
proceed as follows. Depending on whether the value of n is 1, 2 or 5, 
the appropriate element of the switch list is selected. Thus the value 
of EXIT [1] is the label L1; for EXIT[2] it is the label L2. | EXIT[5] 
leads to the switch designator FAIL [m] which in turn must be evaluated by 
referring to the switch list in the declaration of the switch identifier 
FAIL. 


In the general case the evaluation of a designational expression at 
run time to produce & label proceeds as follows: 


(1) The boolean expressions select a simple designational expression. 
If this is a label we have the result desired. 


(2) If it is a switch designator, the numerical value of its subscript 
expression is calculated to the nearest integer in the same way as 
an array subscript. The result is used to select & designational 
expression from the corresponding switch declaration switch list 
counting these 1, 2, 3 etc., from left to right. (If the subscript 
expression is not within the number of entries of the list or is 
negative, the value of the switch designator is undefined and will 
produce a failure in the KDF 9 ALGOL system). 


(3) The evaluation processes (1) and (2) are repeated for the new 
designational expression thus found using current values of all 
variables involved, and so on, until finally a unique label is 
reached. 


Problem 


Follow the action of the program below, noting all labels passed 
and the final values of n and m. 
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begin integer n, m; 

switch Branch := Li, L2, L5; 
switch S := R, Branch[ n - m], R; 
n := 33 m s= 1; 

R: goto if n—O then Branch [n] 

else STOP; 

Lis m s= n -m+ 13 

L2: n := n = 13 

L3: goto S[m + 1]; 

STOP: 
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inr Rid 


Let us remind ourselves at this stage that a block consists essentially 
of a sequence of statements preceded by one or more declarations, the whole 
being surrounded by begin and end brackets and containing & sprinkling of 
semicolons to act as separators. The form of a compound statement differs 
from a block in that it contains no declarations. 


The beginner was advised in Section 18-4 to write his program as a 
single block with all declarations inserted at the beginning of the program. 
We now suggest that the reader make use of the advantages to be gained from 
& block structure. (These are mainly advantages in storage econony). 

As he reads this section he will appreciate that the block structure often 
allows identifiers to have more than one meaning. In his own programs, 
however, he is strongly urged to use identifiers uniquely. 


The definition of Section 18*5 which allows a compound statement or a 
block to be considered as an unconditional statement makes it possible for 
the structure of a program to be quite complicated. Here we are interested 
in the structure arising from the use of blocks rather than that due to the 
occurrence of compound statements, because the declarations at the heads of 
the blocks impose certain restrictions on the use of the identifiers 
declared. The present section will explain these restrictions. 


On page 78 (overleaf) we provide a program which illustrates how 
blocks may appear in sequence with other statements and blocks, or may be 
nested, that is, may appear within other blocks. The block structure in 
skeletal form is depicted on the right hand half of page 79- 
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78 


ine) 
D») 
H 


reai a; 
open (20); 
a := read (20); 
a :- a * 1/aj 
begin  resl v, xj 
v :=a +1; 
x i= v^? + v^(-2); 
for v := O step 0.1 until 1.55 do 


begin integer v; 
real y; 
y := 0; 
L for v := 0 step 1 until 10 do 
y t= y + Xtv; 
for v := 1 step 1 until 9 do 


if a—0 then goto L; 
bezin real v; 

v:=a- 1; 

v t= v42 + v4(-2) 


end $ 


if a<0 then goto L 
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begin real a; a y Vo Vy x y Ly L, 


begin real v, x; 


begin integer v; 


real y; 
B2 Le 
B3 

B1 end 

end 

begin real v; 

B4 

end 
end. 

Block Structure Scopes of Identifiers Declared 


It will be noticed that the program reproduced above consists of a 
block, the block Bi. Blocks B2 and B4 are nested within B1 and block B3 
is nested within B2. Blocks B2 and B4 follow the general sequence of the 
program within block B1. 


Having determined the block structure of this or any program, we may 
relate to the structure the restricted scope of each of the entities 
represented by the identifiers appearing in the program. By scope of an 
entity we mean that part of the program where its identifier may be 
legitimately employed to represent it. For the present example the right 
side of the diagram shows the scope of the variables a, v, x, and y and the 
labels L determined according to certain rules now to follow. 


In Section 18-1, it was stated that a declaration must be placed at 
the head of the block to which it is intended to apply. On its own, this 
rule is insufficient to fix the scope of the entities. Confusion of 
Scopes is particularly liable to occur if an identifier is used to 
represent more than one entity. It is therefore necessary to add the 
following general rules: 
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(1) No identifier may be declared more than once in any one block head, 
nor may an identifier be both declared and occur as a label* or occur 
as & label twice in the same block. 


(2) The entity represented by an identifier declared in a block head does 
not exist outside that block. 


(3) The entity represented by an identifier declared in the head of a 
block is inaccessible in an inner block, if the identifier has there 
been re-declared or occurs as a label.* 


(4) A label is not accessible from outside the block in which it occurs. 
This means that though it is possible to jump out of a block by means 
of a goto statement, it is not possible to jump into a block. A11 
entries to a block must be through the begin. 


(5) A label occurring in a given block is not accessible from an inner 
block, if the correspoding identifier occurs as a label in the 
inner block or has been declared in its head. 


Before going on to discuss the application of these rules to the 
example given above, we illustrate each rule by noting incorrectly and 
correctly written programs. 


INCORRECT PROGRAMS CORRECT PROGRAMS 


RULE (1) 


begin real x; begin real x; 
integer x; TEPPE 
—— l begin integer x; 
end "P" 
end 
end 


*By occurrence as a label, we mean the occurrence of the identifier as a 
labei on the left hand side of a statement and separated from it by a 
colon. 


81 


22° Block Structure and Associated Restrictions (cont. ) 22» 
INCORRECT PROGRAMS | CORRECT PROGRAMS 
begin real L; begin real L; 
L: MM bisiki real a; 
ip m Ls A" 
end _ sais L; 
" ecco. 
end 


begin real x; 


L: eseo 
begin real y; 
L: cece 
goto L 
end 


end 


(goto refers to second label L) 


RULE (2 
begin real x3 begin real x; 
begin real y; begin real y; 
y $7 ooo $- e009 
end ; write (10, format 
write (10, format (Caa J) y) 
(Laa]), y) end 
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— M——32Lne nA950clàved snesvrictions 
INCORRECT PROGRAMS CORRECT PROGRAMS 
RULE 
begin real X; begin real X; 
begin integer i, j; begin integer i, j; 
X: coco Ls eoeu§ 
Xs= ixj; X := ix j; 
goto X goto L 
end end 
end end. 


begin real X, Y; 
| begin integer i, j; 


Xs PPP 
Y s= i Xj; 
goto X 
end |: ¢ 
X sx Y 
end 


RULE (4 
begin real a, b; begin real a, b; 
iocis array M [2 : 50]; n array M[2 : 50]; 
Ls uu L: 2 
as E 2m . 
goto L end 
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INCORRECT PROGRAMS CORRECT PROGRAMS 


RULE 


begin real x; 
Ls ooto 


begin boolean L; begin real y; 


eooo Ls @eoe 
goto L goto L; 
end ; "P" 
ecce end $ 
end goto L 


(Note that the first goto refers to 
the second label L and the second 
goto refers to the first label L). 


Returning to our example and applying to it the rules described above 
we obtain the scopes of a, v, x, y and L depicted in the diagram of block 
Structure and scopes of declared variables to be found earlier in this 
section. Thus the variable & is declared for the outer block B1 and not 
declared again elsewhere (or used as a label). Rules (2) and (3) there- 
fore allow it to be used in any statement of the program. The variable 
x is declared by block B2 and is not declared again. Rules (2) and (3) 
allow it to be used throughout B2 but not outside. The variable y is 
declared for block B3 and is not declared again. The Rules (2) and (3) 
allow it to be used throughout B5 but not outside. 


The situation with regard to the variable v is a little more complex. 
It is declared afresh in the head of each of the blocks B2, B3 and B4. 
On each occasion this is equivalent to declaring a new variable which is 
entirely independent of the others. The entity represented by v in the 
declaration integer v, we call v,. This applies throughout block B3, but 
vo is not accessible outside B3. The entity represented by v in the third 
declaration of v, we call V3. This applies throughout block B4 but is not 
accessible outside. The entity represented by v in the first declaration 
of v we call v4. It may not be used outside B2, and even within B2 it may 
only be used when the declaration of integer v in B3 does not apply, that 
is, outside block B3. 


The first label L is accessible throughout the parts of the block B4 
which are outside B3, while the second label L is only accessible within B5. 
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Problem 


(1) 


(2) 


22.14 


In the following program find the scopes of all the identifiers. 
Follow the action of the program and find the values of those variables 
which are defined at the label STOP. 
begin real W, 9, B, C; 
W := 8; 
DO B= 5i 
B := 2X W- 5; 
C :=B = W; 
begin real P, W; 
W:B-2x€; 


P := Ch2 - B; 
AAs We=P-2 XW; 
C v= CO + 1; 


if W=1 then goto AA; 
S: W-P-«S 
end 3 
W:W-C 83 
. STOP: 
end | 
In the above program find the number of unlabelled basic statements, 


basic statements, unconditional statements, statements, block heads, 
compound statements and blocks. 


The Relation between Procedures and the Block Structure 


As far as restrictions on identifiers are concerned, the body 
of a procedure is treated as if it were a block, whether this be so 
or not. Specifications are treated as declarations; so that formal 
parameters, in particular those called by value and therefore used 
as working variables, are no longer accessible after exit from the 
procedure body. 


Of all the entities declared outside a procedure, its body may 
only operate upon those which are current at the time of the procedure 
call. This applies, whether they are inserted via the actual 
parameter list or already occur inherently within the procedure body 
as non-local quantities. KDF 9 ALGOL makes a further stipulation 
upon the latter class. All non-local quantities occurring in the 
procedure body as declared must be accessible at the time of the 
procedure declaration when they must have the same meaning as at the 
time of the call. 
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Z29eX wtructure and Associated Restrictions 


As noted in a footnote of Section 19°4 any conflict which arises 
between identifiers introduced to the body of a procedure via parameters 
called by name and identifiers already present within the procedure 
body is resolved by suitable systematic changes of the formal or local 


. identifiers involved. 


22°2 
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22-4 


Restrictions Imposed upon Array Bounds by the Block Structure 


The block structure also imposes restrictions upon array bound 
expressions occurring in an array declaration in some block head. 
They may only depend on variables and procedures which are non-local 
to the block for which the array declaration is valid. That is to 
say all variables and procedures which occur in these expressions 
must have been declared outside in some enclosing block. Standard 
functions and constants can of course always be used in these expressions, 
for these are considered to be declared in & block enclosing the whole 
program. 


The effect of the above restriction is to prevent the use of any 
other than constant bounds in the outermost block of a program. It 
also restricts the data input of arrays with variable bounds, because 
the bounds cannot be read with the arrays themselves when more than 
one array is declared in a single block head. 


The restriction on reading the bounds of an array of data with 
the array itself reduces the convenience of using ALGOL arrays to 
represent matrices. However, a matrix scheme avoiding this difficulty 
and yet remaining within ALGOL will be found described in the 
‘English Electric' Manual, 'KDF 9 Matrix Scheme! . 


The Influence of Block Structure on Switch Designators 


Under the rules mentioned in Section 22 it is possible for 
identifiers occurring in designational expressions belonging to a 
switch declaration to have been re-declared with new meanings by the 
time the corresponding switch designator occurs. If this is so the 
conflict between the identifiers occurring in the designational 
expression and those whose declarations are valid at the place of the 
switch designator is resolved by suitable systematic change of the 
latter identifiers. 


Use of the Block Structure 


In order to avoid the complex restrictions on identifiers 
imposed by a block structure, it was suggested in Section 18.4 that 
the beginner should write his program as a Single block with all 
declarations inserted at the beginning of the program. Of the 
rules in Section 22 above only Rule (1) is then necessary. Since 
by Rule (1) no identifier may represent more than one entity in any 
single block, the programmer of a single block must ensure that all 
quantities are represented by their own unique identifier. 
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It is, of course, possible to ensure the uniqueness in meaning 
by suitable choice of all identifiers and at the same time keep the 
block structure in accord with the recommendation at the beginning 
of Section 22. This simplifies the rules considerably but not as 
radically as in the previous paragraph. Only Rules (1), (2) anà 
(4) are now necessary. 


Although it would appear simpler and therefore better to write 
one's program as a single block without an inner block structure, 
such & block structure can be useful. Its main value lies in 
helping to economise on data storage requirements. 


This is essential when a program is likely to over-reach the 
capacity of the computer, perhaps because the program is so large 
that little room is left for data and working space, or because it 
uses a number of large arrays. The block structure is also useful 
when it is necessary to construct parts of a large program independently 
of each other, as for example when more than one programmer is working 
on the same project. Division by block structure would avoid the 
confusion due to overlapping use of identifiers representing different 
quantities. Procedures, of course, can be used in this way &nd are 
of particuler value when & block of program has wide application. 


In the next section we return to the subject of procedures and 
extend their application further than the incomplete treatment of 
Section 19. 
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Jensen's Device 


A very powerful use of ALGOL procedures involves what is called 
Jensen's Device.* This employs the ability to make actual 
paraneters of a proced:re depend upon one another. Suppose for 
example we declare the procedure Sum series as follows: 
procedure Sum series (r) Term: (t) Order: (n) Result: (y); 

value n ; integer r, n; real t, y; 
begin real s 3 S := 0; 
for r := 1 step 1 until n do 


S ts S + i; 


end 


If this procedure were used in a statement of the form: 


Sum series (i, T, m, R) 


then its effect would be rather meagre resulting simply in assigning 
the value m x T to i. 


However, if the parameter corresponding to t is made to depend 
on that corresponding to r, then n different terms in a series may be 
summed. Thus, using subscripted variables (though plenty of examples 
could arise in which subscripted variables are not used), the procedure 
statement 


Sum series (i, A[i-1] x yf(i-1), 12, R) 
would evaluate the series, 


12 A 
A [0] & Ali beeen en «A [13y!' = 23 A[i-1] -i 
i=1 


and assign the result to 2. The coefficients of the series are 
stored as the elements of the array A. 


Other examples using the above procedure are mentioned in the 
problems appearing after Section 25*6. 


Array Identifiers as Parameters 


A rather different use of arrays from that mentioned in the 
previous section arises when formal parameters of procedure declarations 
are specified as arrays. In this case the actual parameter cannot be 
a subscripted variable but both formal and actual parameters appear 
simply as array identifiers. 


*The 


device, which is used in the example 'Innerproduct' in the ALGOL 


Report, is due to J. Jensen of Negnecentralen, Copenhagen. 
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The actual arrays upon which operations are performed already 
have their bounds declared in the program outside the procedure. It 
is therefore unnecessary to specify bounds on the formal. array 
appearing in the procedure declaration. The array specification in 
the procedure specilication part merely appears as: 


rj ^ 

' V A 

OT! array A, Ay ccoo A; 
Ne 


The symbol, array, is here used as a specifier as allowed by Section 19°5. 
Note that in KDF 9 ALGCL formal and actual arrays must exactly correspond 
in type. 


A good exemple of the use of an array in a parameter list is 
found in the procedure Transpose of the ALGOL 60 Report, para 5.4.2. 
The first parameter conveys the name of a two dimensional square 
array, while the second parameter conveys its size. 


procedure  Transpose (a) Order: (n); value n; 


array a; integer nj 
begin real v; integer i, k; 


for i :- ! step 1 until n do 
for k :- 1 * i step 1 until n do 
begin w := a[i, k]; 
a [i,k] := a [k,i]; ; 
a [k,i]:- 
end 
end Transpose 


Note that the parameter a appears in the specification part as array 
and in the body of the procedure is used with subscripts attached. 


The reader might wonder at the need for parameters which are 
arrays. Why not use subscripted variables and insert extra parameters 
for use in varying the subscripts? This can be done, but may not be 
convenient as the reader will discover from revising the procedure 
Transpose above. 


Procedure Identifiers as Parameters 


The use of procedure identifiers in a procedure parameter list 
is another important facility. The specification in the specification 
part appears as: 


` 


T: procedure P, P,.... P; 


. 


PILIS 


The following declaration of the procedure CONVOLUTE makes use 
of three procedure identifiers Int, g and h in its parameter list. 
Note the way these are specified and later used, g and h in function 
designators and Int in a procedure statement. 
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real procedure COUVOLUTE (Int, g. hy 8, b); 


value 2a, b; 


procedure Int; comzent The integration process required is 
supplied through the parameter Int; 


real procedure & ^i comment The parameters g and h supply 
the functions appearing in the 
integrand; 


real a. b; coment The parameters a and b supply the lower 
and upper limits of integration; 


begin real u, R; 
/ X SY 2) T Bl T 
Int (g(u) h(u),u.a, b)Result: (R); 
CONVOLUTED :=R 


end 
The procedure CONVCLUTE is intended to evaluate the integral 


b 
5h g(u) h(u) du 


The names of various real procedures may be inserted for various ° 
furctions g(u) and b(uj, while varicus integration processes may te 
incorporated via the procedure identifier Int. The variable u 
declared in the procedure body is equivalent to the variable of 
integration» 


Switeh Identifiers and besignational Expressions as Parameters 


Of the list of specifiers allowed to appear in tke specification 
part of a procedure declaration by Section 19°5, there remain 
undiscussed the symbols label and switch. For both these the 
specifying symbol is followed by one or more formal parameters to 
which the symbols apply in a manner analogous io the specifications 
described in the previous two sections. 


label is the specifier used when the fornal paTameter corresponds 
to actual parameters which are designational expressions, each actual 
having a label es its vaiue. It is by this means that the programmer 
may best jump out of a procedure which is to be used in several con- 
texts, say for a failure. The use of non-local labels would often 
te inconvenient. 


Example: 
procedure Commlex bivide (a, b.c. d, e, f, Failure); 
value a, b. C4 dj 


real a, Dy Cy d, e, £3 label Failures 


begin real g: 
g := of2 + df2j 
if g = © then goto Failure 
(ax c + b x d)/g; 
Bore (Dx o -ax à)/g 
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The specifying symbol switch is used when the formal and actual 
parameters are switch identifiers. In this case a complete switch 
is transferred via the parameter list. The facility, which is 
illustrated by the following procedure will not be found of frequent 
application. Use is made of an own variable, for explanation of 
which see Appendix 4. 


procedure GOTO (5, bool); 
switch 3; boolean bool; 
begin own integer i; 
i :- if bool then i + 1 else 1; 
goto s[i] 
end 


The above procedure will cause a jump to a label of the actual 
switch supplied in place of 5. If bool be false then the first label 
is used. If bool be true, tae position of the label to be used is 
Stepped on by one. 


Recursive Use of Procedures 


When an ALGOL program is being executed and control reaches the 
procedure identifier o? a procedure statement or function designator, 
the identifier initiates a call of the procedure according to rules 
already explained in Section 19. It may happen that, in the process 
of executing the procedure, control reaches the same procedure 
identifier again in a position where it expects to give rise to a 
new call of the procedure. This is allowable and in the jargon is 
called a recursion. 


Ve have already met a simple type of recursion without having 
called it such. The solution of Problem 4 (ii), Section 19 makes use 
of the procedure identifier Jo recursively in the function designator 
JofJo(x12)). Here the second call of the procedure Jo arises from 
the arithmetic expression inserted as the actual parameter for the 
first call. The procedure Jo itself is not recursive, but the use 
made of it is. 


In this example as in all cases of recursion the new call of the 
procedure sets up a new layer of storage for parameters and locally 
declared quantities,* so as not to interfere with those already 
current for the first call. Further levels of recursion may be 
entered at appropriate calls of the procedure, thus we might use the 
following function designator, Jo(x + Jo(Jo(xÍ2))-1), which recurses 
twice. 


*lowever,. new storage is not required of course for parameters called by 
name, or for own variables and arrays whicn as far as their storage is 
concerned are treated as non-local to the procedure (See Appendix 4). 
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The above recursive use of a sinple procedure by making a nev 
call of the procedure in the actual parameter list is the Simplest 
form of recursicn. Another type of recursion arises when the new 
call of the procedure lies within its own body. The following is 
an example of a recursive procedure to calculate the binomial 
coefficient eut 


integer procedure BC (n,r); value n.r; integer n.r; 


BC t= if r = O then 1 else (n-rt1)/r x 3C(n,r-1) 


In this procedure the body contains two occurrences of the procedure 
identifier, the occurrence on the left of the assignment is not a 
call of the procedure and does not produce a recursion. The second 
occurrence does occasion recursions. 


Tt should be pointed out that though the use of this second type 
of recursion may often produce an elegant ALGOL prograu, more often 
than not a less efficient use is made of KDF 9 by this means than by 
straight-forward ALGOL programming. 


Use of Non-local Variables in Procedure Bodies 


The manual has already stated in Section 22*1 that procedures 
may use non-local variables within their bodies (as long as for KDF 9 
ALZOL these are accessible and have the same meaning both at declaration 
time and at the procedure call). Use of such non-local quantities can 
occasion unexpected consequences particularly if assignments are made 
to them within the procedure body. 


One might have an apparently harmless function designator, Sheep 
(20), which however has the following declaration: 


integer procedure Sheep (s); value s; real s; 


begin Sheep := 8; 
Wolf := 2 x Wolf end 


A call of this procedure will not reveal openly the effect upon the 
non-local variable Wolf, and because of this hidden 'side effect' the 
two expressions: 


Sheep (20) x Wolf 
and Wolf x Sheep (20) 


uill lead to two different results. 


We assume here that the operands occurring within an expression 
are always evaluated from left to right (in addition to operations 
which are usually performed in this order, see Section 6). This is 
the case with KDF 9 ALGOL. There is, however, no express ruling on 
this matter in the ALGOL 60 Report, so that other compilers may adopt 
a different order of evaluation and therefore produce .a different 
result when'side effects' are involved. 
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Other procedures than those used as function designators can 
produce 'side effects' but function designators are the more 
insidious in practice as they are capable of being used in the very 
varied positions allowed for expressions. Thus the mere evaluation 
of an array subscript or the obedience of a goto statement using a 
designational expression may produce an effect on other quantities. 


There is, however, very little excuse for the average ALGOL 
programmer obscuring his program by the use of procedures having such 
hidden effects, since he can always bring their effects into the open 
Ly incorporating non-local variables in the procedure parameter lists, 
calling these variables by name. 


Problems 


(1) Use the procedure Sum series of Section 23*1 to sum to n terms 
(i) an erithmetic progression, first term a, common 
difference d, 


(ii) a geometric progression, first term a, common ratio r. 


(2) Use the procedure Sum series to produce the effect of the 
procedure statements: 


(i) Spur (A) Order: (7) Results to : (V) 
(ii) Innerproduct (A[t,P,u], B[P],10,P,Y). 


Procedure declarations of Spur and Innerproduct appear in the 
ALGOL 60 Report, para 5.4.2 


(3) Construct a type procedure to evaluate the area under a curve 
using Simpson's Rule, expecting an array of the co-ordinates at 
equel intervals of the independent variable to be provided as 
one of the parameters. 


+y) 


"c-r 
[: = 3n Mg : 4y, + y» r ^y; ka ey, tesseetéy,, = 2 + m - 4 n 


independent variable passing from a to b, co-ordinates Ji and n 
evene 


(4) Write a recursive procedure to discover the highest common factor 
of two integers p and q. 


24» CHECKING AN ALGOL PROGRAM BEFORE TEST 24. 


Although the simplicity and efficiency of ALGOL programming is such 
that one may expect a fairly low error density when compared with other 
forms of programming, there is still a strong possibility of errors 
occurring, particularly in large programs. To prevent wastage of machine 
time in re-translation, it is most important that an ALGOL program should 
be checked by band before translation is started. The following are 
points to notice particularly. 


(i) Check that the underlining of basic symbols has not been 
forgotten. 


(ii) Check that semicolons have not been forgotten. Look particularly 
l at the ends of lines, between declarations and specifications, 
at the ends of declaration and specification lists, and following 
comments introduced by the basic symbol comment. 


(iii) Check that each begin has a corresponding end and that each if 
has a corresponding then. 


(iv) Check for the omission of compound statement brackets begin and 
end, such as those which should appear round for statement bodies 
and the branches of conditional statements, when they contain 
more than one independent statement. 


(v) Check that an if never follows a then, or an arithmetic, logical, 
or relational operator. 


(vi) Check that except within strings the exponent base ,, is only 
' used within numbers and is always followed by a signed or 
unsigned integer number (not a variable). 


(vii) Check that two arithmetic or two logical operators do not appear 
in juxtaposition. 


(viii) Check that each opening bracket in an arithmetic expression has 
a corresponding closing bracket and vice versa. 


(ix) Check that the multiplication sign x has not been omitted. 


(x) Check that integer division + is only used to operate upon 
integer operands. 


(xi) Check that declarations of simple variables have not been omitted. 


(xii) Check that specifications of formal parameters have not been 
omitted, and also that upper and lower bound information has not 
been provided for array specifications. 


(xiii) Check that each variable has not been used before a value has 
been assigned to it. 


(xiv) Check that after exhaustion of the for list of any for statement 
the controlled variable is not used again until an assignment is 
first made to it. (The controlled variable keeps its current 
value if exit from the for statement is by a goto statement before 


exhaustion). 
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24° Checking an Algol Program Before Test (conte) 24. 


(xv) Check that no division by zero, square root of negative quantity, 
logarithm of zero or negative quantity, or disallowed use of the 
exponentiation operation, etc., can occur. 


(xvi) Check that the absolute value has been taken when testing 
magnitudes of quantities. 


(xvii) Check the program thorovghly by following it through step by step 
using test data to enable one to check all parts of the program. 
Check also for special values of parumeters, such as zero. 


Since it is still possible that an ALGOL program may contain errors, 
even after the above checks have been made, automatic checking facilities 
are incorporated in the translator. Nearly every disobedience of the 
rules of KDF 9 ALGOL is discovered by the translation process and notice 
of it printed out, pin-pointing the position of the error in the program 
so far as this is possible. In tue remaining few cases however, such as 
incompatibility of formal and actual parameters, the error is not discovered 
until the program is run. Again notice will be given. There are also 
other checks automatically made at run-time, such as those needed to ensure 
thet the storage capacity of the machine is not exceeded or that numbers do 
not become too large during calculation. 


It is, of course, not possible to check automatically for a wrong 
program. The translator will accept for translation any program which 


obeys the rules and the KDF 9 ALGOL system will run it. The programmer 


himself must compare the results produced with those he desires, before he 
may be sure of having the right program. 


In order to help the programmer discover where a program has been 
written wrongly, he is able to output partial results and other information 
by means of program-testing procedures. The identifier of each such 
procedure must commence with a particular group of letters and is written 
and declared by the programmer himself. When the program is compiled in 
the testing mode, procedure stetements and declarations using these 
identifiers are included; while in the nou-testing mode they are excluded 
For further details see KDF 9 Library Service Note - ALGOL Note 1. 


Problem 


List the errors in the following program: 


begin comment Program to evaluate «X 


real term, S, pi; 


for n :- n + 1 while abs(term)>,,-10 do 
term := 1/(2n - 1); 
S :- S + term 
pi := sqrt (sqrt(96s) 
write (10, format([d.dddsdddsddd]), pi) 


(Problem eontinued overleaf). 
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24* Checking an Algol Program Before Test (cont.) 24“ 
\ * 


The intention is to evaluate «x from the series 


x’ /o6 E + + + + + esteo 
1 3 5 


continuing until terms are less than 10 `. The program as given above 
contains thirteen errors. 
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Ae APPENDIX 1 A «1 


A SPECIMEN ALGOL PROGRAM 


The specimen program supplied here should help to give readers some 
idea of the appearance of a program for a practically occurring problem 
in engineering. ‘he program which is in strict KDF 9 ALGOL illustrates 
many of the programming tools available to the ALGOL user. 


The problem and numerical method of solution is as follows: 


L 
Tabulate the functions A(X), \ x (2x)? and g(x) for « = 0 (Ac) 1.0, 
where A(«) is given by 


2 
x (1 -«) = (a NX e) erfer)/d 


and g(x) is given by 


^) 


gx) = 21 xü -«), Vo ie 
- «(t = eje? /(A 28), Ae 1/2 


The function erfc Ais sometimes called the complementary error function 
and is given by the integral 


2 
x 


oo 
erfcA = xls e dx 


An initial value of À is obtained from the approximation 


he (1 - 9/28 


This value of À is improved using the following formulae in an iterative 


manner: 
1 - fe ET) (À erfc Jh) 


and new) = 1 + O.855«(1 - A) 


When ois zero, A becomes infinite and the above formulae cannot be 
used in numerical calculation. In this instance the limiting values are 
output directly. 


It is not claimed that the numerical method used for solving the above 
problem is particularly efficient. In fact the method used to evaluate 
erfcA, being based upon the trapezoidal rule, is rather slow (except when 
Ais near zero). for present purposes this does not matter as we wish to 
illustrate a form of programming rather than produce a fast program. The 
problem is taken from a paper by J. W. Miles (The Propagation of an Impulse 
into a Viscous-locking medium, A.3.M.E. Trans. Series E. Jour. Appl. Mechs. 
March 1961, 21 - 24). 


Aed 


be 
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Appendix 1 - A Specimen ALGOL Program (cont.) A*1 
in comment This is a program for a practically arising problem. It 


illustrates the use of many of the facilities available to the 
ALGOL user; 


real alpha, lambda, Delta alpha; integer i, fl, f2. f3, f4, £5; 


real procedure erfc (z); value z; real z; 


begin comment This procedure evaluates the complementary 
error function of z using the trapezoidal rule. It 
halves the interval until the required accuracy is 
attained, but avoids repeating the evaluation of 
ordinates more than once; 


real x, h, JO, Ji; integer n, i; 
h :2 0.13 JO := 0; n :2 O; i s= 13 
R: Ji s= JO; 

for n t= n, n + i while 
nx hx (nx h+ 2 x 2)<11.51 do 
begin t= 2+nxh3 

JO := JO + exp(-x12) 
X (if n = O then 0.5 else 1) 

end $ 

if abs(1 - 2 x J1/J0)>0.00001 then 
begin i := 23 n:= 13 h t= h/2; 


goto R 
end ; 
erfe := 1.128579 x JO Xh 


end erfc3 


library 1, 2; comment The word library under lined and followed by a 
list of numbers separated by commas and ending with semi- 
colon is an instruction to the KDF 9 ALGOL operating 
System to insert at this point the specified passages of 
ALGOL text from the library. In this case passages 1 
and 2 are required - between them these contain the 
declarations of the input and output procedures named 
open, close, read, write, format,and write texts 


open (20); 
Delta alpha := read (20); close (20); 


comment Delta alpha is the only input data item required by the 
program; 


open (10); 


write text (10, [Propagation*of*an*Impulse*into*a*Viscous-locking* 
" Medium [4c4s ] Delta*alpha*=*]); 


write (10, format ([d.ddddccc]), Delta alpha); 


A «1 


end 


gy 
Appendix 1 - A Specimen ALGOL Program (cont. ) A*1 


write text (10, [L4s] alpha Liss] lambda [ 7s] lambda 
x sqrt (2X alpha) [98] g [2c 4s] 0.0000 [ 13s] 
INFINITY [13s] 1.00000 [12s] 1.00000[ c); | 
f1 :- format ([ssssá.dddd]); 
f2 :« format ([12sd-dddd,tndJ); 
f3 := format ([12sd.ddddd]); 
f4 :- format ([128d.dddddcc J); 
f5 := format ([12sd.dddàdc); 


Delta alpha step Delta alpha until 1.0 do 
real 14, 12; 
is= i + 1; 
lambda := (1 - alpha)/sqrt (2 x alpha); 
if alpha = 1 then goto SKIP; 
11 := lambda; 
12 :- sqrt (0.886227 x (1-alpha)/alpha x 11 
x erfo (11) x exp(41112)); 
lambda := 12 + 0.835 x alpha x (12-11); 
if abs (1-12/lambda)>,0-5 then goto Repeat; 
write (10, fi, alpha); 
write (10, f2, lambda); 
write (10, f3, lambda x sqrt (2 x alpha)); 
write (10, if i - i $5 x5 = O then f4 else f5, 
if lambdaz..70710678 
then 2 x lambdaf2 x alpha x (1-alpha) 
else if lambda f 0 
then alpha x (1 - alpha) x exp (lambdaT2)/ 
(lambda x 2.35282180) 
0.48394) 


els 


o 


PII 


close (10) 


prograin 
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A:1 Appendix 1 - A Specimen ALGOL Program (cont. ) Ae 


Layout of Results 


Below we show the layout of results expected from the above program 
for the input data tape containing 0.1—>. The results are first punched 
out on paper tape and subsequently tabulated. 


Propagation of an Impulse into a Viscous-locking Medium 


Delta alpha = 0.1000 


alpha lambda lambdaxsqrt(2xalpha) g 

0.0000 INFINITY 1.00000 1.00000 
0.1000 2.0201, +0 0.90340 0.73452 
0.2000 1.2812, +0 0.81029 0.52525 
0. 5000 9.27112, -1 0.71814 0. 56101 
0.4000 6.9945, -1 |. 0.62559 0.24038 
0.5000 523160 -1 0.53160 0.26796 
0.6000 5.9727, -1 0.43519 0.30384 
0. 7000 2.8340» -1 0.33532 0.34489 
0.8000 1.8242, -1 0.23075 0.38947 
0.9000 8.928419 -2 0.11979 0.43642 


1.0000 0.0000 0.00000. 0.48394 
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Ae2 APPENDIX 2 A*2 


SIMPLE BOOLEAN EXPRESSION = GENERAL FORM 


Amongst the logical operators which may be used in a boolean expression 
we have not (—), ana (A), or (V), imp (>) and eqv (=).* Denoting these 
logical operators by LO, a logical value by LV, a boolean type variable by 
BV and a relation by R, we may write a simple boolean expression in the form: 


LV LV LV 
BV LO BV LO ..... LO BV 
R R R 


For example we might have the following simple boolean expression: 
B1 and true or x<y 
BV LO LV LO R 
The various components of the expression are marked. 
The function of the logical operators is as follows: 
not will change the value of the boolean quantity which follows it. 
and will take the pessimistic view. that the result of the operation on 
the two boolean quantities on either side of it is true if both have 
the value true, otherwise the result is false. 
or will take the optimistic view that the whole has the value true if 
at least one of the two boolean quantities on either side has the 


value true otherwise the result is false. 


imp short for implies, will produce the result true if the boolean quantity 
to the right of the symbol is at least as true as the boolean quantity 
to the left. 


eqv short for equivalent, will produce the result true if the boolean 
quantities on either side have the same value. 


Evaluation of a simple boolean expression proceeds from left to right 
except that the following order of precedence must be observed: 


ist arithmetic expressions in accord with Section 6 and & 


2nd relational operators 


5rd not 
4th and 
5th or 

6th imp 
7th eqv 


*The KDF 9 ALGOL (flexowriter) symbols are given here with the ALGOL 60 
equivalents in parentheses. 
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pendix 2 - Simple Boolean Expression - General Form (cont.) Ae2 


Brackets may also be used within boolean expressions to alter the natural 
order of evaluations. 


Examples: 
(1) If x = 0, y = -2, 2 = 5, find the value of the boolean expression 
not (x<2 and z>6 or 2 + y = 0) 


The following steps are necessary. The first operator, not, is 
followed by a bracket which must be evaluated first. We have then, 

not (true and z—6 or 2 + y = 0) 

not (true and false or 2 + y = 0) 

not (false or 2 + y = 0) 

not (false or O - O) 

not (false or true) 

not (true) 


not true 


Note: to be certain that 2 + y comes to exactly zero, y must be 
an integer type variable. 


(2) For the same values of x, y and z, evaluate 
not x<2 or z—6 and y £ 3 
Again, we follow each step through. 


not true or z—6 and y # 3 
false or 2>6 and y # 3 
false or false and y # 3 
false or false and true 


false or false 


false 


Problems 


(1) Ifa=1, b=1.5, c = -0.5, d = 2 find the values of the following 
simple boolean expressions. a and d are integer type and b and c 


(i) b«àd 
(ii) a+ be(! + ct2 xà) 
(iii) boc and d<2 


(iv) etd Z a or bf2 - a = d or not bz«1.499 
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Ae2 Appendix 2 - Simple Boolean Expression - General Form (cont. } À*2 


(2) If a, b, c and d are variables of type integer, which of the following 
are valid simple boolean expressions? 


(i) a= 24a and 5 = 4 or not true 
(ii) a = 21d not c - 1 and 2<a 
(iii) b«(a and a<a) and (d<c) or cb 


(iv) not d + c $ b—b or true orc = 2 


(3) If B1, B2, B5 are boolean variables such that B1 and B5 have the value 
true and B2 has the value false, find the value of the following 
boolean expression: 
not (B1 and B2 or B3 and true) or not 33 or (P1! and false) 


(4) Show that whatever the values of the boolean quantities b! and b2, 
the value of the expression 


(b! imp b2) egv (not b! or v2) 


is always true. 


——— pma e BH 
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As3 APPENDIX 3 Ae3 


ACTION OF FOR LIST ELEMENTS 
———M— MÀ — 


The action of a for statement of the form 
for V :- A step B until C do S, 


where A, B and C are arithmetic expressions, V is a variable and S a 
Statement, may be described in terms of the following ALGOL statements. 

Vi s= V := A; 

V2 := B; 

L: if sign (V2) x (V1 - (c))—0 

then goto Element exhausted; 

S; 

V2 :=B 

Vi :2 V := V + V2; 

goto L 


V1 and V2 are auxiliary simple variables, V1 of same type as V and 
V2 of type real. V2 is used so that the above statements may evaluate 
the expression B only once per cycle. The statements are also arranged 
So that A, B and C are evaluated in the correct order. This is of 
importance if the expressions are such as to introduce side effects. 
The use of V1 helps to reduce the occurrence of side effects introduced 
via the subscripts of V, if it is a subscripted variable. 


The statement, 
goto Element exhausted 
leads on to the next element in the for list which recommences assignment 
to the controlled variable according to this new element. If there is 
no new element in the for list, as in the for Statement written above, 
control passes to the next statement in the program. 
The action of the while element occurring in a statement of the form 


for V :- E while F do S, 


where E is an arithmetic expression, F a boolean expression and V and S 
as above, may be described in terms of the following ALGOL statements. 


Ls:VszE; 
if not (F) then goto Element exhausted; 
95. 


goto L 
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A*4 APPENDIX 4 À*4 


OWN VARIABLES AND ARRAYS 


The symbol own is available to designate variables and arrays as own. 
Own quantities like others may be used in the block and only in the block 
where they are declared. They differ from others in keeping their values 
unchanged on exit from a block, so that on re-entry to the same block 
access is available to the old values. 


A simple variable or an array is designated own by preceding the type 
Symbol by the declarator own in the type declaration, or array declaration. 
The type symbol may not be omitted for own array declarations. In 
parameter specifications, however, the symbol own may not be used. 


Exemples of declarations using own: 


own integer x, y 
own real array PIG [1:30, 1:40] 


The following declaration would not be allowed; 


own array A[1:10] 


There is a restriction on own arrays in KDF 9 ALGOL. The bound pairs 
.in their array declarations must be constant. In the jargon of ALGOL 
experts, 'dynamic own arrays! are not allowed. 


The effect of recursion on an own quantity is the same as the effect 
of a normal re-entry to the block in which it is declared. One and the 
same quantity becomes available; no new quantity is defined on a fresh 
level. 


bas 
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Ae5 APPENDIX 5 At5 


PROCEDURE BODIES IN KDF 9 CODE 


The following notes though brief should enable the reader to write 
procedure bodies in code assuming that he has a knowledge of KDF 9 user- 
code. The KDF 9 Programming Manual must supply any deficiency of information 


on the latter score. 


The form taken by a KDI" 9 ALGOL procedure with body in user-code is 
briefly as follows The procedure heading is a normal heading restricted 
only in so far as miik and ip} procedure may not be used as specifiers. 


The code body of the procedire is bracketed together by the symbols 
KDF 9 at the commencement and ALGOL at the end. Following the symbol KDr 9 
declarations are made for the EDF 9 storage required in a storage description 
list. This must contain the number of nests and Q-stores, and the span of 
W-stores and V-stores needed, separated by oblique strokes (/). Q-stores 
are counted from Q15 down; W-stores and V-stores are counted as the highest 
numbered store used. 


This storage description is followed vy a semicolon, and afterwards a 
sequence of program instructions each terminating in a semicolon, the whole 
terminated Uy the symbol ALGOL as mentioned above. 


Instructions may be a mixture of KDF 9 user-code instructions and 
others looking like a cross between user-code and ALGOL. These latter 
provide access to ALGOL parometers appearing in the parameter list of the 
code procedure. Their form is such as to include an ALGOL identifier 


enclosed in string quotes as follows: : 
Instruction 
Fetch formal parameter (FP) into M4 [rp] 
Store fermal parameter (FP) from N4 = [FP] 


Uncenditicnal jump to formal parameter (FP) 
specifiod label J [rr] 


EXIT instructions terminating subroutines within the code body are 
written normally, but those which terminate the procedure dynamically, 
that is, initiate an exit from the procedure must be underlined thus, 
EXIT. There is no way out of a code procedure other than by EXIT or 


J [FP]. 


The following is an exemple of a procedure whose body is in code, 
obeying the above rules of construction. 


procedure  Innerprod (a, b) Order: (k. p) Result: (y): 
value k; integer k, p; real y. a, bj 
KDF9 3/1/0/0 
Lk]; = C15; ZERO; = VO; SET 1; 
1; DUP; DIF; = [P]; C15; -; J2>Z 
[2]: Lb]; XP; VO; +F; 
= VO; NOT; NEG; J1; 
2% VO; = [y]: ERASE; EXIT; ALGOL 
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Ae5 Appendix 5 - Procedure Bodies in KDF 9 Code (cont. ) À«5 


The use of W-stores within code bodies is restricted in that they are 
not preserved between calls of the procedure or, please note, within a code 
procedure during use of parameters which have been specified real, integer, 
boolean or label and are also called by name. On the other hand V-stores 
remain undisturbed between calls of the procedure and may be regarded as 
belonging to the particular code body in a similar way to the V-stores of 
a user-code subroutine. 


User-code library subroutines may be called by the code body, and 
subroutines for use by the code body only may be written. The latter may 
only be referenced by ordinary R-labels and called by Jor. 


“A code body has its own set of labels in the same way as a user-code 
subroutine. 


The formal parameter list provides the only link with the storage of 
quantities outside the code procedure which does not depend on knowledge 
of the inner workings of the compilers.* The table in Figure 3 explains 
the effect of the various pseudo-ALGOL/user-code instructions and how this 
effect depends upon the specification and value parts. 


The next section explains how to use the array addressing information 
contained in the Array Word mentioned in the table. 


Array Storage and Addressing 


In KDF 9 ALGOL two dimensional arrays are stored by columns. Thus 
the array a[1:3, 1:2] would be stored in successive words in the order 
a[1,1] a[2,1] a[3,1] a[1,2] a[2,2] a[3,2]. In general, then, early 
subscripts change faster than later ones. 


The Array Word loaded to N1 and containing addressing information 
concerning an array A is divided into three parts corresponding to the 
counter, increment and modifier parts of a Q-store. as follows: 


C Address of first element of the array relative to YO; i.e., 
address of A[LB,LB,LB,... LB], where LB is the value of a 
lower bound in the array declaration. 


I The address relative to YO of the start of index information 
(see below) concerning the array. 


M The address relative to YO of A[0,0,0,...0]. 


In order to use these addresses. one would normally transfer them from 
N1 to some Q-store modifier and fetch the array elements by instructions 
of the type YOMq or YOMqQ. | 


———— MÁ—— SSSSSSSSSSSsSseee 


*The internal actions of the Kidsgrove and ^hetstone compilers differ, so 
that code procedure bodies to be processed by both may not depend upon 
the internal properties of one of them. 
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A-5 Appendix 5 - Procedure Bodies in KDF 9 Code (cont.) Ae5 


The index information otherwise known as the 'Dope Vector', contains 
in the first word 


the total number of elements for the array, 
and in successive words, 


a list of the increments required for a step of 1 in 
any given suffix position, apart from the first, for 
which the increment is always 1. 


This index information is stored in the least significant 16 bits of 
each word in the 'Dope Vector'. In order to use these 16 bits they must 
be masked out from litter which may appear in the rest of the word. 


Storage of Strings 


Strings of basic symbols are stored in the machine in an internal 
8-bit code as listed in Appendix 8. The opening quote of a string is 
stored in DO - D7 and the following basic symbol in D8 - D15 of the 
first word containing the string. The closing quote also appears. 


Function Designators 


If a code procedure is to be used as a function designator, it must 
be declared as a procedure with type symbol prefixed and must leave its 
result in N1 in the correct type before reaching dynamically the symbol 
EXIT. Real/Integer conversion is not performed. 


For further explanation of user-code procedures in KDF 9 ALGOL see 
KDF 9 Library Service Note ~ ALGOL Note 1. 


+ 


=, 
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AeG APPENDIX 6 AeG 
STRINGS 


The form of a string may be defined as follows: A string is any 
sequence of basic symbols such that each string quote [ or J contained 
therein has a corresponding string quote of the opposite kind; the 
closing quote ] corresponding to an opening quote [ must follow it later . 
in the sequence; and the whole sequence must be enclosed in quotes [ 
and ]«* 


Strings are purely of use as parameters for procedures with bodies 
in code, such as the procedure called format used in Section 17 for output 
of results. 


Within the machine strings are stored as sequences of basic symbols 
in an 8-bit internal code which is given in the last column of Appendix 8. 


MEER RR RR ee RR RR RR RR RR RR RR RR EE 


In the ALGOL 60 Reference Language these symbols are ‘and’. 
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APPENDIX 7 


SOLUTIONS TO PROBLEMS 


— ct ers a 


ection 4 


—— ua 


Problem (1) 


1000 
~. 000001 334 


+729300000 
9812 


Problem (2) 


17,3 -134 75 
10? 
Problem (3) 
-.0 08 -88,077 
+ 13.4718 


15.411 732 


Section 5 


Problem 
begin Start value 
ppp5 number 


Section 6 


Problem (1) 
(i) -20.7, real (ii) 45. integer 
roblem (2) 
(1), (i). (iv), (vii), — (viii) 
Problem (2) 
(i) 4 (ii) 5 (iii) 16 (iv) 7 
(vii) O (viii) 4 
Problem (4) 
(i) 9S * (s - t)/vfo (ii) 


(iv) 
(vi) 


(viii) 


(iii) afn + m) 
(v) af(v * sîn) 
(vii) pta / ris + t) 


=. 000001 
-4800 


a29v3 


epsilon 


(v) 4096 (vi) 0 


(U - W) x (1 - af3/ k /(a - x)) 
al(bfn) 

qtvtg 

(a - b/e/(a - ef(£ + q ))/ 
(nfif(j - k) + af(n/(n + 1))) 
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A*7 Appendix 7 - Solutions to Problems (cont. ) A*T 


Section 7 
Problem 
(i) true (ii) true (iii) true (iv) .false 


Section 8:4 
Problem (1) 
if A>pi/2 then 2 x t/(1 + t12) 
else (1 - tf2)/(1 + tf2) 
Problem (2) 


if x« O0 then x - 1 else if x>1 then x + 1 
else xf2 - 5 *x +4 
Various other answers are allowed, but any containing an if following 


a then are incorrect. Any containing O«x«;1 as a boolean expression 
&re &lso wrong. If required, it should be written O<x and x«1. 


Section 9 


Problem 


exp(2 x abs(cos(5 x a))) 
sqrt(ln(arotan(sqrt(a^2 + bf2)))) 
(a x cos(x) + b x sin(x) - 1)/ 

(a x cos(x)t2 + b x sin(xM2 + 1) 


Section 11 
Problem (1) 
Final values a = 25.87, b = 7, p = 25,87, q = 27:27. 
Problem (2) 
ri = 25,r&422,rb»10,ns2,1-4,3-2. 
Problem (3) 


ra = 4, rb = 12.5, ia = 5, ba = true, bb = true. 


Section 1252. 


Problem . 
SUM - Oy Ts 1.25, 125355535550 
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Ae7 Appendix 7 - Solutions to Problems (cont. ) AeT 


Section 133 
Problem (1) 


Delta x 


In this example 0.55 is used instead of 0.5 after until because of the 
possibility of rovuding errors arising when dealing with real 
quantities. If 0.5 were used, the last values of x and y might get 
omitted. 


0  O.1 0.2 0.3 0.4 0.5 0.6 


1 0.84 0.64 0.49 0.36 0.25 


Problum (2) 
(i) S := 0; for i :- 1 step 1 until n do S :- S i 


(ii) for i :- 0 step 1 until n do 
S := if i = O then O else S +i 


Section 13.4 
Problem (1) 


58 41 85 145 


2 5 6 T 8 9 10 -1 


6 30 42 56 T2 90 110 


Note that the for list element, -1 while m=O, and in particular its 
boolean expression are not considered until after the three previous 
for list elements have been used up. See comments on the for list, 
Section 13.1. 
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Ae7 Appendix 7 - Solutions to Problems (cont.) A*T 


Problem (3) 


k = 5 1, 1, 8 =53 m= 2, 5, 8, 11, 14, 8 = -35; 

k = 2, -51, 2, 4, 6, 8 = -69; m= -24, -22, -20, -18, 
s = 15; . 

k=1, m= 55 25150, 3= 5 

k = 2, ms ditto, 8 = 39 

k = 3, m= ditto, s = 57 

k= 4, m= ditto, s = 79 

k = 5, m = ditto, s = 105 


Section 14 
Problem (1) 


for i := 2 step | until n do P := (1-(-1)?i/it2) X 
(if i - 2 then 1 else P) 


In practice one would write this more naturally in two statements, thus, 
P := 13 
for i := 2 step 1 until n do P := P x (1-(-1)41/i12) 
Problem (2) 
for s := 0.1 step 0.1 until 0.95 do 
begin a:= t/T x (1 - s); b t= 2 x s/(1 - s); 
y t= (bf2 + a/2 x (1 - exp(-2 x a)) 
+2 xa x b/(af2 + b12) 
X (exp(-a) x (a X sin(b) + b X cos(b)) 
- b))/(at2 + vf2) 


end 


Section 15 
Problem (1) 


uz «86666... ., W= -1.15555... 25 B = true 


Problem (2) 


x and y are real variables. 
$- 5.0; 
loop: i= Xi 


x 

y 

x := 16/(y + 1); 

it abs(y - X)> (975 then goto loop 
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A*7 Appendix 7 - Solutions to Problems (cont.) ' A*T 


An alternative solution not using a conditional statement is:- 


for y = 5, 16/(y + 1) while abs(x - y)>,-5 do x :- y 


3 4 5.2 2.8095 cove eooo 
5 4 35.2 TTT 


After leaving the for statement the controlled variable y, which gives 
the answer to one step greater accuracy than x, will be lost. 


Problem (3) 


This problem is solved either by resorting to the contents of Appendix 2 

or using a compound statement such as described in Section 14. Using 

the logical operator and of Appendix 2 we have the following solution:- 
if B1 and B2 then goto P else if B1 then goto Q else if B2 


then goto R else goto 5 


Problem (4) 


for n :- 1 step 1 until 100 do 
begin y :- xtn; 
if y = 1 then goto Singularity 
eise y :- (y + 1)/(y - 1) 
end 


Other answers are possible. 


Section 16.2 
Problem (1) 


B[1,1] = 4; BE ,2] = 15 B[2,-1]= 23 
V[3] = 4; is. 


Problem (2) 
SC:2 SCD: =03 
for i:= 1 step 1 until 15 do 
begin SCz= SC + CAT[i]12; 
SCD:= SCD + CAT[i] X DOG[i] 


end 
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Ae7 Appendix 7 - Solutions to Problems (cont.) (AT 


section 17:9 
Problem (1) 


for i :- 1 step 1 until 10 do 
S :- (if i- 1 then O else 5S) + read (20)42 


S could be set at zero initially outside the for statement. eliminating 
the need for an arithmetic expression containing an if clause. 


Problem (2) 


f:= format ([ddd.dde]); 
for*i :- 1 step 1 until 100 do write (10, f. read (20)43) 


Problem (3) 


write text (30, [Co-ordinates * of * the * Farabola, * yf2 = 4x.) 


Problem (4) 


write text (30, [**x [9s] y [c]]); 
f1:= format ([d.dd]); f2:- format ([ssssssád.ddc]); 
for x :- O step 0.01 until 5.005 do 


begin write (30, f1, x); write (30, f2, 2xsqrt(x)) end 


Problem (5) 


f:= format ([dddddsss]); 
for i :- 1 step 1 until N do 
begin x:= read (20); 
Bi :=x+2~x2-x = 0; 
B2 :=x+3x*3-x = 0; 
write (10, f, x); 
ii B1 and B2 then write text (10,[ 2; 3£c]]); 
if 21 and not 52 then write text (10, [2[ c7); 
if not B1 and B2 then write text (10, [3 0c1J) 
end 


Problem (6) 


f1:- format ([5s-d.ddddddd,+ndc J); 
f2:- format ([5s-d.ddddddd,«nd]); 
for i :- 1 step 1 until 22 do 
write (11, if i $ 5 X 5 -i = O then f1 else f2, 
BRUTE [i,i]) 
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7 Appencix 7 - Solutions to Problems (cont. ) Ae'T 


Section 18:5 
Problem (1) 
begin real a. b, De qj 


a 
pi-&*3xb-23.-; 


+ (a + 3)/(-b = 13) 


a 
n 
m 'gd 


m 
Ml 


end 


Note that b cannot be taken as integer type because it appears in a 
left part list with real a. 


Problem (2) 


begin real ra, rb; integer ia; 
boolean ba, bb; 
ra i= 725% 


eec 


bb := ba and rb>ie and rae rb 


Section 18-4 
Problem (1) 


i) begin real S; integer i: 
integer 


for i := 1 step 1 until 10 do 


S := (if i = 1 then O else S) + read (20)#2; 


end 
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A-7 Appendix 7 - Solutions to Problems (conte) 


(ii) begin integer i, f; 
open (10); open (20); 
:- format ([ddd.ddc]); 
for i :- 1 step 1 until 100 do 
write (10, f, read (20)43); 
close (10); close (20) 


end 


Problem (2) 


begin real x; integer f1, f2; 
open (50); 
write text (30, [Co-ordinates * of * the * Parabola, 
* yt2 = 4x.) 
write text (30,[[2c ]]); 
write text (30,[** x [98] y [e JJ s 
f1:- format ([d.dd]); f2:- format ([ssssssd-dde J); 
for x :- 0 step 0.01 until 5.005 do 
begin write (30, f1, x); 
write (30, f2, 2x sqrt(x)) 
end H 
close (30) 
end 


Note that all three of the write text statements above could be 
combined in one statement. 


Problem (3) 


begin real x, y; integer f1, f?; 


open (12); 
f1:- format ([-d.dddda tnd); 
f2:= format ([ssss-d.ddddd ndc); 
for x := 0.1 step 0-1 until 10.05 do 
begin y :- exp(x/1.4142136)/sqrt(672851855 x x); 
write (12, fi, y x | 
cos(x/4.41421356 + 0.35926990817)); 
write (12, f2, y x 
sin(x/1.41421356 - 0.3926990817) ) 


end 


close (12) 


A.T 
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A+7 Appendix T - Solutions to Problems (cont.) 


Problem (4) 


begin 


end 


real x, sum; integer r, i, n; 
open (20); 

n:= read (20); 

sum := 03 


for r := 1 step 1 until n do 


begin x:= read (20); 

i :- sqrt(r); 

if r = if2 then sum :- sum + x 
end ; 


close (20) 


Problem (5) 


begin 


end 


integer i, k,n, f; 


integer array j [0:9]; 
open (20); n:= read (20); 
for k:- O step 1 until 9 do j[k] :- 0; 
for it= 1 step 1 until n do 
begin k:= entier (read (20)/10 + 0°05); 
if kL9 then goto miss; 
j[k] s= 3[k] + 1; 
miss: end ; 
close (20); open (10); 
f:- format ([ddddddc]); 
for k:- O step 1 until 9 do write (10, f, 3[k]); 
close (10) 
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4+7 Appendix 7 - Solutions to Problems (cont. ) AeT 


Problem (6) 


begin real e, xl. x2: aj 
integer i, n, f 
open (21); a:= read (21); e:= read (21); n:= read (21); 
close (21); open (10); f:- format ([nddd.ddddad000c J) ; 
xl = -0.5 X 361415926536; 
for i :- 0 step 1 until n - 1 do 
begin x1 := 361415926536 + x1; 
for x2 :- i x 35.1415926536 + arctan(a/x1) 
while abs(x2 - x!)zme do x1 :- x2; 
write (10, f. x1) 
end R 
close (10) 


end 
Problem (7) 


begin real a, b, c, S, Delta; 

open (20); 
a:- read (20); b:- read (20); c:- read (20); 
close (20); 
s :- (a + b 4 c)/2; 
Delta :- sqrt(s x (s - a) x (s - v) x (s - c)); 
open (10); 
write text (10, [Delta * = *]); 
write (10, format ([dd.dddd]), Delta); 
close (10) 


end 


Problem (8) 


begin integer r, n, HC, f; 
open (20); n t= read (20); close (20); 
f:= fornt ([dddddsddddde J); 
open (10); 


m 
lel 


for r:= O step 1 unti do 


begin BC := if r 
(n - r + 1)/r x BC; 
write (10, f, 3C) 


O then 1 else 


end i 


close (10) 


125 
Ae7 Appendix 7 - solutions to Problems (cont. ) Ae7 


Section 19:8 
Problem (1) 
All the various parts of a procedure declaration appear, commencing 
with the type declurator, real, and the symbol procedure, and 
continuing with the procedure heading:- 
erfc (2); value zZz 3 real z; 

The procedure heading is followed by the procedure body. In this 
example as is most usual it commences and closes with begin and end 
brackets. 
The value part is: value 2; 
The specification part is: real z; 
Problem (2) 

25. 
Problem (3) 

p=- 15 q= 7375 Y» 25, 8 = 113 all others are undefined. 


Problem (4) 


(i) real procedure Jo(z); value z; real z; 
begin real term, y; integer n; 
tern := y i= 13 


for n := 1 step 1 until 12 do 


begin 
term := -term x z12/(? x n)12; 
y s= y + term 
end ; 
Jo := y 


end 
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A-7 Appendix 7 - Solutions to Problems (cont. ) AT 


(ii) begin 


ena 


Section 21 


Problem 


real x; integer fi, f2; 
real procedure Jo(z); value z; real z; 
begin real term, y; integer nj 
— (as above) 
end $ 
open (11); 
f1:- format ([à.dssssss]); 
f2:- format (-d.dddddsdddde ]); 
for x :- O step 0.1 until 1.05 do 
begin write (11, f1, x); 
write (11, f2, 
Jo(x) + Jo(Jo(xt2))) 
end ; 


close (11) 


Labels: R, L3, L2, L3, L1. L2, L3, 3, L1, L2, L5, R, STOP. 


n= 0, m= 0. 


Section 22 


Problem (1) 


begin 


end 


W T5 3 B C P AA STOP 


| 
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Ae7 Appendix 7 - Solutions to Problems (cont. ) 


Problem (2) 


Unlabelled basic statements 12 
Basic statements “44 
Unconditional statements 16 
Statements 17 
Block heads 2 
Compound statements 0 
Blocks 2 


Section 236 
Problem (1) 


(i) Sum series (i, a + à x (i-1), n. R) 


(ii) Sum series (i, a x rf(i-1),n, R) 


Problem (2) 


(i) Sun series (k, A [ ksk], 7, V) 
(ii) Sum series (P, A [t,P,u] x B[?], 10. Y) 


Problem (7) 
(Solution adapted from P. E. Hennion, Algorithm 84, Comm. A.C Meg 
No. 5, April 1962.) 
real procedure SIM (n, a, b, y); 
value n, a, b; real a, b; integer n; array yi 
begin real s; integer i; 
s+» (y [0] -y En1/2; 
for i :- 1 step 2 until n -1 do 
st=s+2xy[iJ + y [itt]; 
SIM := 2 X (b-a) x 8/(3 x n) 


end 


Problem (4) 


procedure HCF (p,q,R); value py 3 


integer ps,qQ,H; 
if qg=0 then 3i :- p 


else HCF (qs pP-p +q XQo R) 
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Ae? Appendix 7 - Solutions to Problems (cont. ) o A.T 


Section 24 
Problem 


4. X in comment is not a basic symbol of XDF © ALGOL as listed 
in section 3. 


by 
. 


omitted after comment. 
5. n not declared. 
4, 5. s and term both used before being assigned values. 
6. | Underlining omitted from while. 
Te begin and end brackets omitted after do. The assignment to 
s should be included in loop, otherwise terms will not be 
summed. 
8, 9. X sign omitted between 2 and n and also between 96 and s. 


10. ) omitted:- required to complete arithmetic expression. 


11. ; omitted after assignment statement. 
12, 15. Device 1C neither opened nor closed. 
Appendix 2 


Problem (1) 
(i) true (ii) true (iii) felse (iv) true 
Problem (2) | 
Only (i) and (iv) are valid 


Problem (3) 


false 


Problem (4) 


not b! or b2 


b1 imp b2 


It follows that the complete expression is always true. 


A»8 


BASIC SYMBOL 
(Reference 
Language) 


AMZ 
A-Z 


X 


> 


U 


129 


APPENDIX 8 A»8 


BASIC SYMBOLS = STANDARD REPRESENTATIONS 
a rp 


8-CHANNEL 5 -CHANNEL LINE PRINTER 6-BIT INTERNAL 
(Flexowriter) (Creed) (Program Text) (Octal value) 
VERSION VERSION VERSION REPRESENTATION 
a-z A-Z A-Z 046-077 
A-Z A-Z 014-045 
t r 
0-9 0-9 0-9 000--01 1 
true XTRUE TRUE 535 
false *PALSE FALSE 315 
4 4 + 501 
- - e 321 
X X Á 261 
/ / / 241 
t *DIV 7 221 
I 
î 39 U 201 
P 
= * zm L 202 
T 
< *> b 222 
E 
= = 242 
> > G 262 
E 
= > G 302 
T 
£ £ N 322 
E 
egy *EQV EQV 303 
imp *IMP IMP 265 
or *OR OR 243 
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tandard Representations (conte) A*8 


A*8 Appendix 8 ~ Basic Symbols - S 


BASIC SYMBOL 8-CHANNEL 5-CHANNEL LINE. PRINTER 8-BIT INTERNAL 

(Reference (Flexowriter) (Creed) (Program Text) (Octal value) 

Language) VERSION VERSION VERSION REPRESENTATION 
= not *NOT Nor 203 
go to — goto or go to  *GOTO GOTO 210 
if if “IP IF 205 
then then *THEN THEN . 225 
else else *ELSE ELSE 245 
for for *FOR FOR 206 
do . 8o *DO DO 3526 
, 9 , , 246 
. e e. e 01 3 
g iä v @ 012 
: : — t 271 
; j *, ; 230 
$= $m += HL 265 
L * £ 216 
step step *STEP STEP 266 
until until | XUNTIL UNTIL 306 
shite while *WHILE WHILE 226 
comment comment *COMMENT COMMENT 200 
( ( 204 
224 


[^74 a4 


211 


CA we 0 
K 
KA” V — 


má 
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A*0 Appendix 8 ~- Basic Symbols ~ Standard Representations (cont.) A*B 


BASIC SYMBOL 
(Reference 
Language) 


Boolean 


integer 


real 


array 


switch 


procedure 


string 


label 


value 


5 -CHANNEL 


8-CHANNEL 
(Flexowriter) (Creed) 
VERSION VERSION 
|] *) 
L #Q 
] *U 
begin *BEGIN 
end XEND 
own OWN 
boolean or Boolean *BOOLEAN 
integer INTEGER 
real *REAL 
array * ARRAY 
switch *SWITCH 
procedure *PROCEDURE 
String *STRING 
label. *LABEL 
value *VALUE 


LINE PRINTER 


(Program Text) 


VERSION 


eem em o ec c» e 


um am eus em mos 


8-BIT INTERNAL 
(Octal value) 
REPRESENTATION 


231 


234 


217 


110 


130 


120 


172 


471 


237 


y 


* 


WE "o 


Actual parameter 
ALGOL 60 

Arithmetic expression 
Arithmetic operator 
Array 

array 

Array bound 

` Array declaration 
Assignment statement 


Asterisk * 


Basic statement 

Basic symbol 

begin 

Block, Block structure 
boolean 

Boolean expression 
Bound pairs 

Bound pair list 
Bracket 


Call by value, name 
Checking a program 
Code body 

Comment 

comment 

Compound statement 
‘Conditional statement 


Controlled variable 


Decimal number 
Declaration 
Declarator 


Delimiter 


Designational expression 


Device number 


INDEX 


Page 

61-62 

4 

15, 19-20, 41 
Fig. 1, 12-14 
41, 87-88 

54 

54-55, 85 
54-55 

27-28 


(See Space in strings) 


A, 39 

T, 129 

5 

56, 86 

11 

17, 20-21, 42 
54-55 

54-55 

ux 21 


(See Value, Name) 
95-95 

68, 109-141 

n" 

Ti 

37 

39 


15-14, 89-90 
45 


Digit 
do 
Dummy statement 


else 
end 
entier 


Exponentiation 


false 

for 

For list 

For list element 
For statement 
Formal parameter 
Format expression 


Function, Function designator 


Goto statement 


goto, go to 


Hardware representation 


Identifier 

if 

If clause 

If statement 
Input and output 
Integer 


integer 
Integer division 


Jensen's device 


vi 


INDEX 
(Continued) 


Ts 17 


33 

33-35, 105 
33-36 

61-67, 87-90 
45, 47-48 
23, 63 


51 
51 


87 


INDEX 
(Continued) 


Label 
label 


Labelled basic statement 


Layout 

Left part list 
Left part variable 
Letter 

Letter string 


Library of ALGOL procedures 


library 
Logical operator 
Logical value 


Lower bound 


Name, Call by 
Non-loesl variable 


Number 


Operator 


Owm variable 


Parameter 

Parameter delimiter 
Parenthesis 

Procedure 

procedure 

Procedure body 
Procedura call 
Procedure declaration 
Procedure, Hecursive 
Procedure statement 


Program 


real 


Recursive procedure 


Page 


24 
67, 89-90 
34 

46-47 

27 

2T, 55 

1 

62 

68 

68 

Fig. 1, 101 
T, 17 

54 


64-66 
84-85, 91-92 


21 
61-68, 87-92 
62 

61-68, 84-85 
61-65 

61-68 

90-91 

62-63 

57-58 


90-91 


Relation 
Relational operator 
Restrictions to ALGOL 60 


Scope of identifier 
Segmentation 
Semicolon 

Separator 

Sequential operator 
Side effect 

Simple arithmetic expression 
Simple boolean expression 
Simple variable 
Space 

Space in strings 
Specification Part 
Specificator 
Specifier 
Standard function 
Statement 

Statement bracket 
String 

String quote 
Subscript 

Subscipt o 
Subscripted variable 
owitch 

switch 

Switch declaration 


Switch designator 


Terminator 
then 
true 


Type 


vili 


INDEX 


(Continued) 


Page 


17 
Fig. 1, 17 
1 


77-83 

2 

6, 25 

7 

Fig. 1 

90-91 

13-14 

17, 101-103 
41, 53 

8 

8 (footnote), 48 
66-67, 88-90 
T 

66-67 

23 


41-42, 54-55 
73-74, 89-90 
67, 74, 89-90 
74 

T5-T4, 85 


AT 


Unconditional statement 
Unlabelled basic statement 
Upperbound 


Value, Call by 
Value part 
Variable 


Vertical line 


INDEX 
(Continued) 


Page 


39, 56 
31 
54-55 


64-66 
64-66 
14, 45 
5 (footnote), 37 (footnote) 


NOTES 


NOTES 


NOTES 


NOTES 


